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PREFACE 


The information in this book is intended for programming support representatives and 
system programmers who maintain the direct-access device space management 
(DADSM) routines. 


The manual has six sections: 


e “Introduction,” which presents general information about the DADSM routines, the 
control blocks used (data set control blocks), and the relationship of the data set 
control blocks (DSCBs) in the volume table of contents (VTOC). 


e ‘Method of Operation,” which describes in detail how each DADSM function does its 
work. Diagrams are used to relate the input and output of each function to the 
processes. The diagrams also help (1) teach the DADSM techniques to those who are 
not familiar with them and (2) provide a rapid means of refreshing your knowledge 
and understanding of DADSM. 


e ‘Program Organization,” which presents module-level flowcharts and module 
descriptions. 


« “Directory,” which briefly describes each of the DADSM routines, tells how each is 
called, and cross-references the module names that appear on the microfiche of the 
assembled source listings, the flowcharts, and method of operation diagrams. 


e ‘‘Data Areas,’ which contains the control blocks, common work areas, and tables used 
by the DADSM routines. 


« ‘Diagnostic Aids,”’ which tells about some of the techniques that are used to find the 
source of DADSM problems. A cross-reference of the messages issued by the allocate 
routine is also included. 


The book is designed to be used with listings of the assembled source code. For 
installations using VS2, the VSAM and RPS changes are provided for planning purposes 
only. 


Prerequisite Reading 


For general information about the operating system: 

« OS/VS1 Planning and Use Guide ,GC24-5090 

¢ OS/VS2 Planning and Use Guide ,GC28-0600 

For reference information on space allocation: 

« OS/VS Data Management Services Guide ,GC26-3783 

For reference and “how-to” information on allocating, extending, and releasing space: 
«e OS/VS JCL Services ,GC28-0617 

¢ OS/VS JCL Reference ,GC28-0618 


For reference and “how-to” information on deleting data sets (SCRATCH macro), 
renaming data sets (RENAME macro), obtaining access to DSCBs (OBTAIN macro), 
and protecting data sets (PROTECT macro): 


« OS/VS Data Management for System Programmers ,GC28-0631 
For details about the System Management Facilities (SMF) records: 
« OS/VS System Management Facilities (SMF), GC35-0004 


Preface 3 


For reference and “how-to” information on using IEHLIST, IBCDASDI, and 
IEHDASDR: 


¢ OS/VS Utilities ,GC35-0005 


For data area layouts of intercomponent control blocks (for example, the DEB, UCB, - 
and SVRB): 


« OS/VS1 System Data Areas ,SY28-0605 

e OS/VS2 System Data Areas , SY28-0606 
For information concerning access method logic: 
© OS/VS SAM Logic , SY26-3788 

¢ OS/VS ISAM Logic , SY26-3786 . 
© OS/VS BDAM Logic , SY26-3789 

© OS/VS Virtual Storage Access Method (VSAM) Logic , SY26-3818 

For information concerning VSAM utilities: 


e OS/VS VSAM Access Method Services ,GC35-0009 
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OS/VS1 SUMMARY OF CHANGES 


Release 2 


VSAM Support in DADSM 


For installations using VS1, the addition of the virtual storage access method (VSAM) 
resulted in changes to the extend and obtain routines. VSAM data spaces are allocated 
and extended as if they were non-ISAM data sets. The VSAM catalog component 
manages space allocation within these data spaces, by suballocating the space to VSAM 
data sets. The obtain routine has been modified to read physical extent information for 
VSAM data sets from the VSAM catalog. 


VSAM data spaces cannot reside on split cylinders nor can absolute-track allocation 
requests be made. Also VSAM data set protection is handled by the VSAM routines and ~ 
not by VS. 


This information is provided for planning purposes only until VSAM is released. 


RPS Support Simplified 


The implementation of DADSM support for direct-access devices with the rotational 
position sensing (RPS) feature has been simplified for this release of OS/VS1. The RPS 
set-up module, IGGO29R1, has been eliminated. The function provided by IGGO29R1 
has been incorporated in the affected DADSM modules. Function and performance of 
devices with the RPS feature remains unchanged. For installations using OS/VS2, this 
information is provided for planning purposes only. 


Changes for Partial Release 


Control is passed to partial release from the close processing routines after writing the 
file mark on direct-access devices. Also partial release will write back the F1 DSCB on 
the VTOC and dequeue the VTOC which was previously done in the close and 
checkpoint/restart routines. 
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INTRODUCTION 


How To Use This Book 


This book is written for system programmers who maintain and alter the design of the 
direct-access device space management (DADSM) routines. It is intended to provide 
information at two levels: 


1. General information about the DADSM routines and their relationship to the 
operating system. 


2. Specific reference information concerning how each of the routines operates, the 
control blocks they refer to and change. 


The text of the “Introduction” and ‘‘Method of Operation” sections provide information 
at the first level for those who are not familiar with DADSM. The method of operation 
diagrams should be read in conjunction with the method of operation text by those 
readers who need information at the first level. Information about using the method of 
operation diagrams appears before the diagrams. 


For readers who are familiar with DADSM processing, the method of operation diagrams 
are intended as quick reference and refresher material. The cross-references to module 
names and labels within these modules can be used with the ‘‘Program Organization” 
section to provide detailed reference material. 


Terminology Notes 


Non-ISAM data sets in this publication refers to SAM, PAM, DAM, and unspecified 
data sets (usage of EXCP). 


VSAM data space is an expression used to describe the physical space on a volume that 
is maintained for VSAM data sets by the VSAM catalog routines. One or more VSAM 
data sets may reside in a VSAM data space. The VSAM catalog routines manage the 
extents allocated to a VSAM data space; the DADSM routines treat a request for a 
VSAM data space as if it were a request for a non-ISAM data set allocation. 


Controlling Space on DASD Volumes 


The DADSM routines control allocation of space on direct-access volumes through the 
volume table of contents (VTOC) of that volume. The VTOC is built when the volume is 
initialized by the direct-access storage device initialization (IEHDASDR or IBCDASDI) 
utility program. See ‘“The Volume Table of Contents” for more information about the 
VTOC. 


The VTOC is a collection of data set control blocks (DSCBs). The different types of 
DSCBs are: 


e Free VTOC record DSCB—format-0 

« Identifier DSCB—format-1 

e Index DSCB—format-2 

e Extension DSCB—format-3 

e VTOC DSCB—format-4 

e Free space DSCB—format-5 

e Shared extent DSCB—format-6 . 
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Each DSCB corresponds either to a data set or data space currently residing on the 

volume, or to contiguous, unassigned tracks on the volume. DSCBs for data sets or data 

spaces are the data set labels, which contain characteristics of the data sets or data spaces 

and the tracks on which it resides. DSCBs for unassigned tracks indicate the location of S) 
unassigned, contiguous tracks. 


A function of the direct-access device space management (DADSM) routines of data 
management assigns tracks on direct-access volumes. These routines are used primarily 
by job management routines to get space for output data sets. The DADSM routines are 
also used by data management routines to get or increase space for a data set or data 
space, and to release space no longer needed. 


When space is needed on a volume, the DADSM routines check the VTOC for enough 
contiguous, available tracks to satisfy the request. If there are not enough contiguous 
tracks, the request is filled using up to five noncontiguous groups of free tracks. The 
appropriate DSCBs are modified to reflect the assignment of the tracks. 


When space is released, the DADSM routines delete the DSCB of the deleted data set or 
data space, or modify the DSCB to free unused space in data sets that are kept. A free 
space DSCB is modified or built to indicate that the tracks containing the affected data 
set or data space can be reallocated. 


DADSM Routines 


DADSM’s space management routines are concerned with: 


« Allocating primary space, which involves finding space for new data sets or data 
spaces. This is the allocate routine. 


e Allocating secondary space, which involves finding additional space for data sets or 
data spaces that have exceeded their original, primary allocations. This is the extend 


routine. , 


e Releasing space, which involves both deleting entire data sets or data spaces that are 
no longer needed, and freeing unused space in data sets that are being retained. These 
are the scratch and release routines. 


DADSM’s VTOC-related service routines are concerned with: 
¢ Changing the names of data sets. This is the rename routine. 
e Making control information available for examination. This is the obtain routine. 


e Determining the space available on a direct-access volume. This is the LSPACE 
routine. 


e Maintaining the system’s password data set, which controls access to data sets and 
their associated control information. This is the protect routine. 


In addition to these two major groups of routines, DADSM performs two minor services 
for the operating system: 


¢ Provides information for the System Management Facilities (SMF) records. 


e Coordinates required changes in channel programs for devices with the Rotational 
Position Sensing (RPS) feature. 
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Allocating and Releasing Space on Direct-Access Volumes 


The DADSM routines which allocate space (allocate and extend), and release space 
(scratch and release), add, delete, and modify records of the VTOC. These records are 
called data set control blocks (DSCBs). To make space available to a new data set or to 
increase the space allocated to a data set, the appropriate DSCBs of the VTOC are 
searched for available space; the space is allocated to the data set by writing the 
description of the space, called an extent, to the data set’s DSCB and deleting the extent 
from the space available for allocation. To release space allocated to a data set, the 
allocate operation is reversed: the released extent is deleted from the data set’s DSCB 
and added to the DSCB that describes available space. 


Components of the operating system use the DADSM routines to allocate and release 
space in response to data definition (DD) statements. For example, job management 
(scheduler) routines call the allocate routine to obtain space for a new data set. The 
end-of-volume component of Open/Close/End-of-Volume (O/C/EOV) calls the 
extend routine when an existing data set needs more space, and the CVOL function of 
catalog management calls the extend routine to allocate additional space for a data set. 
Similarly, job management routines use the scratch routine to delete data sets, and the 
catalog management routines use the scratch routine to delete a data set when 
uncataloging involves deleting a data set of a generation data group. Utility programs 
(IEHPROGM, IEHMOVE, and IEBCOPY) use the scratch and allocate routines. 
Scratch processing is also available to the system programmer through the SCRATCH 
macro instruction. 


The virtual storage access method (VSAM) allocates and releases space using the 
DADSM allocate, extend, and scratch routines. These DADSM routines are called by the 
VSAM catalog routines to allocate, extend, and delete VSAM data spaces. 


The release routine is called by the close routine of O/C/EOV to release unused space 
before a data set is closed and by the reposition-I/O routine of checkpoint/restart. 


VTOC-Related Service Routines 


Rename, obtain, LSPACE, and protect are routines used to manipulate control 
information on the VTOC; none allocates or releases space. System macro instructions 
can be used to invoke the rename, obtain, and protect routines (reference and “how-to” 
information for these macro instructions is provided in OS/VS Data Management for 
System Programmers ). 


The rename routine finds the DSCB for a specified data set and changes its name, after 
verifying that the requested name does not duplicate one already on the volume. 


The obtain routine finds the DSCB for a specified data set, then reads the DSCB into 
virtual storage. The obtain routine is also used to get information about VSAM data sets 
from the VTOC and VSAM catalog. 


The LSPACE routine is called either by a “DISPLAY SPACE” command from the 
operator or by the System Management Facilities (SMF). The available space on the 
volume is calculated by searching and totaling the extents of DSCBs indicating and 
finding the largest available extent on the VIOC. If SMF information is required, an 
SMF type-19 record is gathered and written to the SMF data set. 


The protect routine adds, replaces, deletes, or lists entries in a password data set. When 
the security protection status of a data set changes, the protect routine also modifies the 
protection mode indicator field in the protected data set’s DSCB. 
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The Volume Table of Contents 


The volume table of contents (VTOC) is a data set consisting of 140-byte control blocks 
(DSCBs) that describe the contents of a direct-access storage device volume. The VTOC 
data set resides in a single extent (that is, it is a continuous data set); its address is 
located in the VOLVTOC field of the standard volume label (see Figure 1). There are 
seven different kinds of DSCBs. Each has a different purpose, and is, consequently, 
given a different name and format number. Figure 2 lists each DSCB and its use. 





Standard Volume Label 


111B) 


VOLVTOC (10 bytes) 
CCHHR of VTOC 


(format-4) DSCB 





Cylinder 0 \ / 


Track 0 


VTOC Data Set, 
(Can be located anywhere on 


a 
a 
w 8 
9 
a 


the volume after cylinder 0, 
track 0, and following the 
volume label and IPL records.) 


Or 
Dscet-4 First 
Format-5 DSCB 2 
OSceB 


Figure 1. The volume table of contents (VTOC) and how it’s located 





The first record in every VTOC is the VTOC (format-4) DSCB that describes (1) the 
device that the volume resides on, (2) the attributes of the volume itself, and (3) the size 
and contents of the VTOC data set itself. 


The format-4 DSCB is followed by a free-space (format-5) DSCB, which lists the 
extents on the volume that have not been allocated to a data set or VSAM data space. 
Each format-5 DSCB contains 26 extents. If there are more than 26 available extents on 
the volume, another format-5 DSCB will be built for every 26 extents. The format-5 
DSCBs are chained using the last field of each format-5 DSCB. The third and 
subsequent DSCBs in the VTOC do not necessarily occupy continuous space, nor do 
they have any prescribed sequence. ; 


14 OS/VS DADSM Logic 





DSCB 
Name 


Identifier 


Index 


Extension 


VTOC 


Free Space 


Shared 
Extent 


Free VTOC 
Record 


DSCB 
Format 
Number 


1 


Function 


Describes a data set or VSAM 
data space and the first 
three extents. 


Describes the indexes of an 
ISAM data set. 


Describes the 4th through 
16th extents of a data set 

or VSAM data space. (Data 
sets and VSAM data spaces 
are restricted to 16 

extents per volume.) 


Describes the extent and 
contents of the VTOC and 
volume and device 
characteristics. 


Describes the space ona 
volume that has not been 
allocated to a data set 

or to VSAM (available 
space). 


Describes the extents shared 
by two or more data sets 
(split-cylinder extents). 


The unused records in the 
VTOC, which contain 140 
bytes of binary zeros. To 
delete a DSCB from the 
VTOC, a format-0 DSCB 
iS written over it. 


How Many 


One for every data set or 
VSAM data space on the 
volume, except the VTOC. 


See“‘ISAM Data Set 
Allocation.” 


One for each data set or 
VSAM data space on the 
volume that has more than 
three extents. 


One on each volume. 


One for every 26 non- 
contiguous extents of 
available space on the 
volume. 


One for every 26 split- 
cylinder extents on the 
VTOC. 


One for every unused 140- 
byte record on the VTOC. 
The DS4DSREC field of the 
format-4 DSCB is a count 
of the number of format-0 
DSCBs on the VTOC. 


How Found 


Search on key equal to the 
data set name. 


Chained from a format-1 DSCB 
the data set. 


Chained from a format-2 ora 
format-1 DSCB for the data 
set or VSAM data space. 


VOLVTOC field of the standard 
volume label contains its address. 
It is always the first record in 

the VTOC. 


The first format-5 DSCB on the 
volume is always the second record 
of the VTOC. If there is more 

than one format-5 DSCB, it will be 
chained from the first format-5 DSCB 
via the DSSPTRDS field of each 
format-5 DSCB. 


The address of the first format-6 
DSCB is contained in the DS4F6PTR 
field of the format-4 DSCB. If there 
iS more than one format-6 DSCB on 
the volume it will be chained to the 
first via the DS6PTRDS field of the 
format-6 DSCB. 


Search on key equal to X‘00’ 
(sometimes X‘00000000’). 


Figure 2. A tabulation of data set control block (DSCB) format types and their use 





A data set or VSAM data space is defined by one, two, or three DSCBs in the VTOC of 
each volume on which it resides. The number of DSCBs needed to define a data set or 
VSAM data space is determined by (1) the organization of the data set (ISAM data sets 
need a format-2 DSCB to describe the index) and (2) the number of extents the data set 
or VSAM data space occupies (a format-3 DSCB is needed to describe the fourth 
through the sixteenth extents). Figure 3 shows the general makeup of a VTOC and the 
DSCBs needed to define two types of data sets (ISAM and non-ISAM). 


Data set A (in Figure 3) is an ISAM data set; three DSCBs, a format-1, format-2, and 


format-3, are required. Data sets B, C, and D could be SAM, PAM, or DAM data sets or 
VSAM data spaces). Data set B has more than three extents and therefore requires both 
a format-1 and a format-3 DSCB. 


Data sets C and D have three or fewer extents and only need a format-1 


DSCB. The format-6 DSCB, pointed to by the format-4 DSCB, is used to keep track of 
the extents shared by two or more data sets (split-cylinder data sets). For example, if 
data sets C and D share an extent made up of one or more cylinders, this extent would 
be described in the format-6 DSCB. 
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Standard Volume Label 





VTOC Data Set 


Data Set A Data Set B : 
Format-4 DSCB First FS ODSCB _Format- 1 psca aa " 


Description of 


Description of Description of :. Description of 
device, volume, 26 available =; the data set and 
and the VTOC extents its first 3 extents 
extent | 


the data set and 
its first YY extents 















Data Set C 
_ Format-2 DScB | Format-6DSCB | Next Format-5 DSCBYFormat-3 DSCB eFormat- 1 DSCB 
: Description of Description of Description of Description of POsecrintlon of 
E the index “4 as many as 26 as many as 26 the 4th - 16th data set C and its 
page 2S = shared-cylinder available extents extents first 3 extents 


extents 


\ 


We 


Data Set D 


- Format-3 DSCB_ « %Format-1 DSCB 









S Description of 
= the data set and 


_Gits first 3 extents 







a Description of 
} the 4th - 16th 
2 extents 








DSCB for an ISAM data Free VTOC Records 
set (Data Set A) (Format DSCBs) 
DSCB fora 


non-|ISAM data 
set (Data Sets B, C, D) 





Figure 3. The contents of the VTOC—DSCBs describing data sets 





To prepare a volume for use (to initialize it), the IBCDASDI or IEHDASDR utility is 
used. One of the things these utilities do is build the VTOC. After initialization, this 
VTOC will contain a format-4 DSCB and a format-5 DSCB. The format-5 DSCB will : 
contain an extent entry for all the free space on the volume; the initial number of extents 
in the format-5 DSCB is one or two, depending on where the VTOC is located on the 
volume. If the VTOC is located somewhere other than at the beginning or end of the 
volume, two extent entries will be needed to describe the free space that precedes and 
follows it. 
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Size of the Volume Table of Contents 


The number of DSCBs in the VTOC determines the number of data sets or VSAM data 
spaces that can reside on a volume and is therefore essential information for the DADSM 
routines that allocate and release space. 


The types of direct-access storage devices supported by this operating system and the 
number of DSCBs that will fit on a single track of each type, are: 


Direct-Access Device Type Number of DSCBs Per Track 
IBM 2305-1 Fixed Head Storage (OS/VS2 only) 18/track 
IBM 2305-2 Fixed Head Storage 34/track 
IBM 2314 Direct-Access Storage Facility 25/track 
IBM 2319 Disk Storage 25/track 
IBM 3330 Disk Storage 39/track 
| IBM 3333 Disk Storage 39/track 


The DS4DSREC field of the format-4 DSCB contains a count of the number of free 
VTOC records (format-O DSCBs) in the VTOC. This count is checked before each 
allocation. There must be enough free VTOC records for all the DSCBs required to 
define the data set or VSAM data space, as well as an extent or a combination of extents 
large enough to contain the data set or VSAM data space. The number of DSCBs needed 
to define a single data set or VSAM data space can be one, two, or three, depending on 
(1) whether it is an ISAM data set (a format-2 may be required) and (2) whether the 
data set has more than three extents (a format-3 DSCB is needed to list the fourth 
through the sixteenth extent). In addition, the DADSM allocate routine makes sure there 
is room for an additional format-5 (and format-6 DSCB for split cylinder allocation) in 
case it is necessary to create one of each during the allocation. 


Volume Table of Contents Integrity 


In an operating system with only one CPU, two or more tasks may concurrently require 
access to the same VTOC for the purpose of reading or updating (that is, adding, 
deleting, or modifying DSCBs) that VTOC. If more than one CPU has access to the 
same device or devices, it becomes necessary to protect VTOCs from being accessed 
while the DADSM routines are in process. 


To be sure that a VTOC is not changed while the DADSM routines are in process, the 
DADSM routines issue RESERVE, ENQ, and DEQ macro instructions. These macro 
instructions provide exclusive control of the VTOC for the task issuing the macro 
instruction. The RESERVE macro instruction is needed for systems in which more than 
one CPU is processing concurrently using the same data sets. These macro instructions 
provide exclusive control of the VTOC for the task issuing the macro instruction. 
Depending on the macro instruction, the ‘“‘set-must-complete”’ option or the 
‘‘release-must-complete”’ option may be specified in an operand of the macro instruction. 
The allocate, extend, scratch, rename, release, LSPACE and protect routines of DADSM 
issue these macro instructions. Of these routines, only allocate, scratch, and release use 
SMC=STEP rather than SMC=SYSTEM in the ENQ and RESERVE macros, and 
RMC=STEP in the DEQ macro. The extend routine uses SMC=STEP if the task is not 
already in “‘step-must-complete”’ mode. 


The VSAM catalog routines modify the DS4AMCAT and DS4AMTIM fields of the 
VTOC (format-4) DSCB. These routines also issue the RESERVE, ENQ, and DEQ 
macro instructions to maintain exclusive control while making modifications. 


Note: When operating in an environment in which direct-access storage devices are not 
shared between systems, the RESERVE macro instruction defaults to (acts as) an ENQ 
macro instruction. 
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If a system fails or a permanent I/O error occurs during allocation of space or during a 

routine that updates the VTOC, the VTOC will probably be in error. To make sure the 

error is recorded, the DADSM routines use the DADSM interrupt-recording facility | 
(DIRF). DIRF processing involves turning on a bit in the VTOC at entry to the DADSM S) 
function, and turning it off again at exit from that function (see ‘‘DADSM > 
Interrupt-Recording Facility” in the ‘Diagnostic Aids’’ section). 


Extent Format Conversion 


All allocations and releasing of space are made in a number of tracks; therefore, each of . 
the formats below must be converted to the relative-track-address format used by 

DADSM, called the RTA1/RTA2 format. RTA is the relative track address of the first 

track of the extent. RTA2 is the relative track address of the last track plus one. The last : 
track address is increased by one during the conversion process to simplify the 

calculations performed by the DADSM allocation and space releasing routines. 


The three extent formats used are: 


DSCB Format Extent Format Meaning 

1,3, and 4 CCHH/CCHH The absolute cylinder (CC) and head address (HH) of 
the first and last track of the data set 

5 (free space) XXYYZ The first track of the available area (XX), the number 


of full cylinders (YY) in the available area, and the 
number of tracks (Z) in addition to the full cylinders 


6 (shared cylinders) XXYYZ The first track of the available area (XX), and the 
number of full cylinders (YY) in the available area; the 
Z is a count of the number of data sets sharing the 
cylinders 


When an allocation or space release has been completed by the DADSM routines, the 
extents in RTA1/RTA2 format must again be converted to the appropriate form ; 
(XX YYZ for format-5 and format-6 DSCBs or CCHH/CCHH for format-1, and J 
format-3 DSCBs). Two resident routines are used to make the conversion, IECPCNVT 
to convert from CCHH/CCHH to RTA1/RTA2 and IECPRLTV to reverse the 
. conversion. The conversions from XX YYZ to RTA1/RTA2 (and from RTA1/RTA2 to 
XX YYZ) for both the format-5 and format-6 are done by the DADSM allocate and 
space releasing routines. 


Support for System Management Facilities (SMF) 


Information for SMF is provided by four DADSM routines: release, scratch, rename, and 
LSPACE. The record type built by three of these routines follows: 


DADSM Routine SMF Record Type 
Scratch 17 
Rename 18 
LSPACE 19 


The contents of these record types is presented in OS/VS System Management 
Facilities (SMF). The logic employed by the scratch routine to determine whether a 
record is to be built and written to the SMF file is shown in Figure 4. 


The LSPACE routine provides SMF information when an LSPACE request is issued by ‘ 
SME and when end-of-volume, rename, or scratch causes a volume to be demounted. In 

addition, release provides SMF information by adding the amount of space released with 

each request to the TCTIOT table for subsequent use in building SMF record types 14 

and 15. 
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Figure 4. Logic used to determine whether SMF records are needed (scratch routine) 
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Support for Rotational Position Sensing (RPS) 


Devices with the RPS feature (the 3330 and the 2305) require channel programs with 
the set-sector (SS) command for channel operations. The DADSM routines support RPS 
device channel programs through the following routines: 


1. The obtain and LSPACE routines test for RPS devices, and, if present, modify their 
channel programs accordingly (this is a simple modification because obtain and 
LSPACE only read from a volume; they do not write). 


2. The allocate, extend, release, and scratch routines get a 128-byte work area, build a 
new appendage vector table, and load a module (IGGO19EK) to insert the set-séctor 
command and convert its value for RPS devices. 


The RPS channel program appendage module (IGGO19EK) is loaded by the DADSM 
routines when a device with the RPS feature is to be read from or written to. IGGO19EK 
builds a channel program segment and modifies the channel program in the DADSM 
work area to perform channel operations for devices with the RPS feature. 


IGGO019EK has four entry points; the routines associated with these entry points 
perform the following functions: 


e SIO (start I/O) routine—IOS (I/O supervisor) enters this routine before performing 
an SIO operation. The SIO routine inserts set-sector (SS) commands within the 
DADSM channel program and then calls a system resident sector-convert routine that 
establishes the sector values. The SIO routine also establishes pointer references to the 
other entry points in IGGO19EK and then returns control to IOS. 


« PGFIX (page fix) routine—IOS enters this routine before performing an SIO 
operation. The PGFIX routine returns the beginning and ending addresses of the RPS 
work area to IOS so that IOS can fix this page before the SIO routine is entered. 


« XE (abnormal end) routine—IOS enters this routine (1) before attempting error 
correction when an I/O error is detected and (2) when it has been established that the 
I/O error is permanent. If the XE routine determines that error correction has not 
been attempted, it returns control to IOS. If the XE routine determines that a 
permanent I/O error exists, control is passed to the CE (channel end) routine in 
IGGO19EK. 


e CE (channel end) routine—IOS enters the CE routine upon normal completion of an 
I/O request, and the XE routine enters the CE routine if a permanent I/O error has 
been established. In either case, the CE routine restores the channel program in the 
DADSM work area to its non-RPS equivalent and returns control to IOS. 
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METHOD OF OPERATION 


This section describes the functions of the DADSM routines. Diagram 1 is an overview 
of the other diagrams. 


The Allocate Routine 


The allocate routine finds unused space on direct-access storage volumes and makes that 
space available for new data sets. This routine creates a format-1 DSCB (data set control 
block) for each new data set, and in the format-1 DSCB, writes descriptions of the 
direct-access storage areas (these descriptions are called extents). Available extents are 
obtained by searching the format-5 DSCBs on the VTOC. Three sets of routines are 
employed for making space allocations. Two of the sets of routines actually handle 
allocation of space (ISAM data set allocation routines and non-ISAM data set allocation 
routines); the third set converts the VTOC of volumes on which allocations have been 
made under the Disk Operating System (DOS) to standard format before making an 
allocation. The non-ISAM allocate routine handles the allocation of VSAM data spaces 
the same as allocation of non-[SAM data sets. All three sets of routines share the 
initialization procedures. 


These initialization procedures include establishing work areas, building control blocks, 
and initializing channel programs to read from and write to the VTOC, enqueuing the 
VTOC using a RESERVE macro instruction, and searching the VTOC for a data set of 
the same name as the data set requesting allocation. DADSM Interrupt Recording 
Facility (DIRF) processing is also performed as a part of the initialization procedures 
(see ““DADSM Interrupt Recording Facility” in the ‘““Diagnostic Aids” section). These 
functions are diagrammed only once for all three sets of routines. 


Next it must be determined whether the data set being allocated is on a device on which 
the last allocation was made by the Disk Operation System (DOS). If it was, the VTOC 
must be converted to standard format before the allocation is made. Control is passed to 
the DOS VTOC conversion routines and control will be returned to the allocate routine 
if the VTOC is converted without encountering any errors. Upon return, the channel 
program to search the VTOC for a data set of the same name as the data set requesting 
allocation is reinitiated. 


The allocate routine recieves control via an SVC 32. As input, it receives (1) a JFCB or 
a partial format-1 DSCB and (2) the address of the unit control block (UCB) for the 
device on which the data set is to be allocated. Requests for ISAM data set allocations 
also pass a pointer to a data definition (DD) statement entry in the task input-output 
table (TIOT). 


Non-ISAM Data Set or VSAM Data Space Allocation 


When initialization procedures have been completed and it has been verified that the 
non-ISAM data set or VSAM data space allocation request is not for a data set name 
already on the volume, this routine converts the space requested for data sets directories 
for partitioned data sets, and VSAM data spaces specified in cylinders and average 
records (block length) to the equivalent number of tracks. 


Finding Free Space on the Volume 


The non-ISAM allocate routine reads in the first free space (format-5) DSCB on the 
VTOC of the specified volume, converts its extent to the RTA-plus-the-number-of- 
tracks format and searches the extents for an extent with the number of tracks the new 
data set or VSAM data space requires. If the space is not found in the first format-5 
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DSCB, the search is continued through the balance of the format-5 DSCBs on the 

volume until it is found or until the format-5 DSCBs are exhausted. If the volume does 

not contain enough available space for the data set or VSAM data space, control is 

returned to the calling routine, which may then specify another volume to be used for the S) 
| data set or VSAM data space, unless a particular volume serial number has been 

specified by the user. 


When the space is found, the non-ISAM allocate routine builds a table (see the extent 
table in the “Data Areas’”’ section) of the format-5 extents used to fill the request. The 
extent table can have as many as five entries. Several different methods of building the 
extent table are used depending on the options specified: 


e User Labels —lf user labels are specified, the user-label track (or tracks, in the case 
of split-cylinder requests with user labels) is allocated from the smallest extent in the 
first format-5 DSCB with enough space. When cylinder requests specify user labels, 
the user label extent will be taken from tracks that cannot be used to fill cylinder 
requests. The user label extent is the first entry in the extent table; when the extent 
table entry has been made, the format-5 DSCB is updated, so that tracks assigned to 
user labels are no longer available for allocation. 


e Zero Quantity Requests —For zero-quantity requests (requests that specify no space 
to be allocated), a format-1 DSCB is built, without extent entries, and written to the 
VTOC. If user labels are specified in a zero-quantity request, the format-1 DSCB will 
contain one extent, the user-label extent. Extent entries can be added later to the 
format-1 DSCB via secondary allocation (see the extend routine). 


e Absolute Track Requests—For absolute-track allocation requests (requests indicating 
that the data set is to start at a specific track), the extent containing the specified track 
is located in the format-5 DSCB. If this extent contains enough space to fill the 
request, following the specific track, it is entered in the extent table. Absolute-track 
allocation is the Disk Operating System (DOS) allocation method. It is supported in | 
this operating system to ensure compatibility. J 


e Suballocation Requests —Suballocation requests are requests to allocate space from a 
data set that was previously defined, in the same job. Instead of searching the 
format-5 DSCBs for available space, the identifier (format-1) DSCB for the data set 
from which the suballocation is to be made is located in the VTOC. The space to be 
suballocated is subtracted from the beginning of the extent of the previously defined 
data set and entered in a new format-1 DSCB along with information from the job file 
control block (JFCB). 


The VTOC is enqueued and the new format-1 DSCB is written. The old, modified 
format-1 DSCB is also written back to the VTOC unless all of its extent was 
suballocated; if it has all been suballocated, the new format-1 DSCB is written over it 
to erase it from the VTOC. 


Note that data sets to be suballocated are allowed only a single extent (plus a 
user-label track extent, if specified); that is, both the old and new format-1 DSCBs 
created by suballocation will have only one extent (plus a user-label extent). 


e Cylinder and Track Allocation—For normal, cylinder or track allocation requests, 
the request type (MXIG, CONTIG, ALX, ox no-option-specified, as defined in Figure 
5) is determined, and the extents required to fill the request are entered in the extent 
table. 


e Split-Cylinder Allocation —The extent table is built for split-cylinder requests (two or 
more data sets sharing a cylinder or cylinders) as if the request were for a single, 
contiguous area. The number of tracks to be 2liocated to each data set snaring the 
cylinders is determined from the JFECBSPTN field of the JFCB (job file control block) 
for the data set. Split-cylinder requests require as input two or more chained JFCBs. 
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Option Allocation Method 


MXIG Allocate all the storage space in the single largest area on the volume, if that area is equal 
to or larger than the request. 


CONTIG Allocate the exact amount of space requested from one area on the volume that is 
equal to or larger than the request. 


ALX Build a list of as many as five areas of available storage that are the largest on the 
volume. If a user label has been requested, a list of as many as four areas is built. 
Allocate all the space in as many of the areas found that are equal to or larger than 
the request. 


No Option Build a list of as many as five areas that are smaller than but closest in size to the 
Specified request. If a user label has been requested, a list of as many as four areas is built. 
(blank) 


If, while building the list, there is found an area equal to the request, allocate that area 
and disregard the list. If no areas are found equal to the request but areas are found 
larger than the request, allocate the amount of space requested from the area that is 
larger than but closest in size to the request, and disregard the list. If all available 
areas are smaller than the request, and if enough space is available in the areas in the 
list, allocate the exact amount of the request from among the largest areas found. 


Note: For an ISAM data set only the CONTIG and the blank options are valid. 


Figure 5. DASD space request options and their associated initial allocation methods 


Split-cylinder data sets on drum devices are handled differently, because these data 
sets do not share cylinders. They are allocated as continuous tracks. 


Building Format-1 and Format-3 DSCBs 


When enough available space has been found on a volume and the extent table created, 
identifier (format-1) and extension (format-3) DSCBs are built to describe the newly 

| allocated data set or VSAM data space. Format-3 DSCBs are required only when more 
than three extents are needed to fill the space request. For zero-quantity requests, only a 
format-1 DSCB is created; no extent entries are included, unless user labels were 
specified, making a user-label extent necessary. Split-cylinder data sets pose the 
additional problem of keeping track of the number of data sets sharing the cylinder or 
cylinders. This user count is kept in a shared extent (format-6) DSCB, unless the device 
on which the data set resides is a drum, to which the cylinder concept does not apply and 
therefore does not require format-6 DSCBs. There is an extent entry in a format-6 
DSCB for each shared cylinder extent on the volume. The format-6 DSCB has the same 
content as the format-5 DSCB, except that the Z of the XX YYZ extent entry is a count 
of the number of data sets sharing the cylinder(s). The count is used by the scratch 
routine to determine when a shared extent can be released (see ‘‘DSCB Deletion and 
Split-Cylinder Processing”’ in the discussion of the scratch function). 


Updating the Free Space (Format-5) and VTOC (Format-4) DSCBs 


| To complete the allocation of a non-ISAM data set or VSAM data space, it is necessary 
to update the format-5 and format-4 DSCBs to define the new status of the volume. 


Updating Format-5 DSCBs: If an entire continuous area has been allocated to the data 

| set or VSAM data space, the format-5 extent entry for that area is completely removed 
by moving forward by one location all subsequent format-5 extent entries in that DSCB 
and in other format-5 DSCBs that may be chained to it. If only part of an available area 
is allocated, the space is taken from the beginning of the area, and the track following the 
allocated area becomes the new lower boundary of the available area. 


If the space to be allocated begins at a specified track address or on a cylinder boundary, 
the allocation may be made from within an available extent. In that case, the allocation 
must create a new extent in the format-5, and the spaces preceding and following the 
allocated space will become two areas identified in two format-5 extents. This causes all 
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subsequent format-5 extents in that and any chained format-5 DSCBs to be moved back 
one location. 


Updating the VTOC (format-4) DSCB: Two fields of the format-4 DSCB may be , 
updated with each allocation. If a DSCB has been added or removed (that is, if a free J 
VTOC record (format-O DSCB) has been written over a format-5), the count of the 

number of format-O DSCBs (the DS4DSREC field of the format-4 DSCB) must be 

updated. This count is referred to as the hole count. The address of the last format-1 

DSCB on the VTOC (the DS4HPCHR field of the format-4 DSCB) will have to be 

changed every time a new format-1 is added to the end of the VTOC. This address is 

referred to as the high-water mark and is used to terminate channel programs that 

search the VTOC. For VSAM data spaces, VSAM catalog management updates the 

DS4AMTIM and DS4AMCAT fields of the format-4 DSCB. When the format-4 DSCB 

has been updated, this routine frees work areas and dequeues from the VTOC. If a 

partitioned data set has been allocated, control is passed to the CVOL (control volume) 

processing routine of catalog management to process the directory. For requests without 

directories, register 15 is loaded with a zero (successful) completion code and control is 

returned to the calling routine (that is, the scheduler or the utility program). 


Handling Error Conditions: When error conditions are encountered in the non-ISAM 
allocate routines, they load register 8 with the error code and XCTL to the 
error-handling routine, which frees work areas, dequeues from the VTOC, loads the 
error code in register 15 and returns to the calling routine. 


ISAM Data Set Allocation 


The ISAM data set allocation routine shares the initialization procedures with the 

non-ISAM data set allocation routine. For an ISAM data set, the procedures include 

establishing and initializing work areas, building control blocks, reading the format-4 

DSCB and the first free space (format-5) DSCB into the work area, and searching the 

VTOC for a format-1-DSCB with the same name as the data set requesting allocation. - 


Request Validation 


The ISAM allocation routine receives control from the allocate initialization procedures. 
When control is received the following checks are made: 


1. If a duplicate-name DSCB is indicated, the validity of the request must be verified. 
The duplicate-name request is valid (1) if it is the second or third of a sequence of two 
or three concatenated DD (data definition) statements that make up the ISAM 
allocation request and (2) if the same UCB is being used. 


2. If a multiple DD statement request is being processed (that is, two or three area 
types—prime, index, or overflow), the first request must indicate a DD name and the 
second and subsequent requests must be concatenated with the first (that is, must not 
have DD names). This information is checked in the DD statement entries in the 
TIOT. 


3. The space request must be in an integral number of cylinders or a number of tracks 
equivalent to an integral number of cylinders. (All space requests for a given data set 
must be specified in the same way, either as cylinders or absolute tracks.) 


4. Cylinder allocations must be specified as either SPACE = CONTIG or unspecified 
(no SPACE designation) on the DD statement. 


5. Only one of each type of area (index, prime, overflow) is allowed for a data set; they 
must appear in that order in the input stream. 


If any of these conditions is not met, the error exit is taken (see “Error Handling’’). 


J 
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C 


If this is the first DD statement in the allocation request, the request validation routines 
set up the TIOT entry for this and subsequent DD statement entries. 


Free Space (Format-5) DSCB Search 


Before searching the format-5 DSCBs on the VTOC, the free-space-search routine 
makes sure there is enough room on the VTOC to write four new DSCBs (format-1, 
format-2, format-3, and format-5). It is possible that one of each of these DSCBs can be 
created during a single allocation. 


The format-5 DSCB search routine searches all the format-5 DSCBs on a given volume 
to find enough space to satisfy the request. 


The search involves comparing each format-5 DSCB extent in sequence with the 
requested quantity, which can be specified either as (1) an absolute track on a cylinder 
boundary and a number of tracks that ends on a cylinder boundary or (2) merely a 
number of contiguous or non-contiguous cylinders. 


For absolute track requests, each extent of the format-5 DSCB is examined to see if the . 
absolute track is in the extent and whether the extent is big enough to fill the request. 


Searches for contiguous cylinders look for an extent, in the format-5 DSCB, equal in size 
to the request. Until an extent of equal size is found, the extent that is larger, but closest 
in size to the requested space, is saved. As each subsequent larger extent is encountered, 
its size is compared to the size of the extent that has been saved. The result of the 
comparison is always to save the smallest extent (of all these larger extents). 


If, during the search of the format-5 blocks, an extent exactly equal in size to the space 
requested is found, that extent is allocated as the requested space and the search ends. 
Otherwise, the search terminates after all format-5 DSCBs have been searched. If an 
extent larger than the request has not been found, an error exit is made. If a larger extent 
has been saved, the requested space is allocated from this extent. This method improves 
the allocation process in that space is taken from the smallest available extent that will 
fulfill the request, leaving larger extents intact to fill other requests. 


Requests specifying that the allocated cylinders need not be contiguous are handled in 
the following manner. As the search for space progresses, a five-entry pushdown list is 
built and maintained. This list contains the largest extents encountered in the search that 
are not large enough to contain the total request. If an extent larger than the requested 
space is encountered, the pushdown list is abandoned, and the larger extent is saved. The 
search is then continued as described for the continuous cylinder requests. 


The space requested is allocated either from the extent saved during the search as in the 
case of a contiguous cylinder request or from entries in the pushdown list. If the 
pushdown list is used, from two to five of the largest entries in the list are used as 
needed. 


If the request cannot be fulfilled by using any of the preceding methods, an error exit is 
taken. 


When enough space has been found to satisfy the request, a table of extents (the extent 
table) is built containing at least one and no more than five extents in the form 
RTA1/RTA2. The extents are entered in ascending relative-track-address order. 


Building Format-1, Format-2, and Format-3 DSCBs 


Three different methods are used to build and write the format-1, format-2, and 
format-3 DSCBs for ISAM data sets, depending on (1) whether format-1 and format-2 
DSCBs have been created during a previous pass on this volume and (2) whether an 
embedded index has been requested. 


Creating Format-1 DSCBs: If there are no format-1 DSCBs on the volume for this data 


Method of Operation 25 


set, this routine builds a new format-1 DSCB using the extent table and the JFCB. If an 

embedded index has been requested, control is passed to the embedded index processing 

routine, described below, before the format-1 extents have been added. This format-1 

build routine also builds a format-3 DSCB if more than three extents are required to S 
satisfy the space request. 


Figure 6 shows the conditions under which a format-2 DSCB will be built. 


Format-1 DSCB Updating: When a format-1 DSCB for the data set being allocated 

already exists on the current volume, control is immediately passed to the format-1 

DSCB updating routine. There will be a format-1 DSCB in virtual storage when this - 
routine receives control; the format-1 DSCB will have been read in by the allocate 
initialization procedure or by the multivolume processing routine. Using the extent table 
as input, this routine adds extents to the identifier (format-1) DSCB or the extension 
(format-3) DSCB if there are extent locations left in these blocks. One format-3 DSCB 
will be built if more than three extent locations are needed. The RTA1/RTA2 entries in 
the extent table are first converted to CCHH/CCHH format using the resident 
conversion routine. 


If an extension DSCB (format-3) is added and there is already an index DSCB 
(format-2) on the VTOC, a pointer to the new format-3 must be added to the format-2. 
The last DSCB to be written to the VTOC is the format-1. It is delayed because a 
pointer to a new format-2 and/or format-3 may have to be added, and because the field 





The Complete Request 


for the Data Set Current Request 
(Given in terms of (Given in terms of Format-2 
DD statement DD statement DSCB Needs 
parameters) parameters) to be Built Comments 
INDEX, PRIME, OVERFLOW INDEX Yes 
PRIME or OVERFLOW No A format-2 DSCB was built during previous : 
(on different volume (index) pass. Both the index area and the 
from INDEX) format-2 DSCB will be on a different volume 
from the one currently being searched. If the 
same volume had been specified for both the 
INDEX request and the current request, a valid 
duplicate-name format-1 DSCB would have 
been encountered. 
INDEX, PRIME INDEX Yes 
PRIME (on different No A format-2 DSCB was built during previous 
volume from INDEX) (index) pass. If the same volume had been 


specified, a valid duplicate-name format-1 
DSCB would have been encountered. 


PRIME, OVERFLOW PRIME Yes For this type of request, an open executor 
module of the indexed sequential access 
method (ISAM) will construct an index 
in the overflow area. 


OVERFLOW No A format-2 DSCB was built during previous 
(prime) pass. As previously described, a 
valid duplicate-name format-1 DSCB would 
have been encountered if the same volume 
had been specified. 


PRIME PRIME Yes An open executor module of the indexed ™ 
sequential access method constructs the 
index area. 


Note: If the DD statement associated with a given ISAM data set has its ‘type-of-space’ parameter left blank, a request for prime 
is implied. 


Figure 6. Conditions under which format-2 DSCBs are built 
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in the format-1 DSCB that is a count of the number of extents in the data set must be 
updated. 


Embedded Index Processing: When this routine receives control, the format-1 DSCB, 
except for the extents, will have been created by the standard request processing routine. 
The extent table will have at least one entry. 


This routine allocates space for the prime area and the index from the space available as 
indicated in the extent table. The space requested for the prime area is divided into two 
parts as nearly equal as cylinder boundary requirements permit. The entries in the extent 
table are then taken in order and assigned as prime extents as necessary to provide 
allocation for the first half of the prime area. The requested index area is then assigned 
from the next available track indicated in the extent table. Finally, the remaining space in 
the extent table is assigned to the other half of the prime area request. Depending on the 
requirements of the request and the sizes of the extent entries, it is possible to form as 
many as seven DSCB extents (two for the index and five for the prime area) from the 
entries in the extent table. 


After the extents have been created for the prime and the index areas, this routine first 
adds as many as three extents to the incomplete format-1 DSCB. If more than three 
extents have been created, a format-3 DSCB is built to contain all those beyond the first 
three. As extents are placed in the format-1 (and possibly the format-3) DSCB, the 
index extents are entered first. 


The extent table entries are converted from a relative track address (RTA1/RTA2) form’ 
to a cylinder and head (CCHH/CCHH) form as they are entered in the DSCBs. A 
resident conversion routine is given control to do the conversion. 


Because an embedded index is always a first DD statement, it is necessary to construct 
an index DSCB (format-2). If a format-3 DSCB has been created, it is written to the 
VTOC. Then the format-2 DSCB is constructed, the address of the format-3 DSCB is 
placed in a pointer field, and the format-2 DSCB is then written to the VTOC. If a 
format-3 DSCB was not constructed, a format-2 DSCB is constructed and written out 
after the last extent entry is placed in the format-1 DSCB. 


Once the format-2 DSCB has been written, its address is placed in a pointer field of the 
format-1 DSCB, and the format-1 DSCB is written. 


Updating the Free Space (Format-5) and VOC (Format-4) DSCBs 


When the format-1, format-2, and format-3 DSCBs have been written to the VTOC, the 
format-5 DSCBs must be updated to account for the space that has been allocated and is 
therefore no longer available. The ISAM allocate work area will still contain as many as 
five extent table entries. These are the extents that must be removed from the format-5 
DSCBs, as they now represent extents that have been allocated to the data set. Format-5 
DSCBs are created and updated in the way previously described for non-ISAM data set 
allocation. 


The VTOC (format-4) DSCB must be modified to indicate changes in the number of 
free VTOC records (format-0 DSCBs) in the VTOC. These changes result from adding 
format-1, format-2, and format-3 DSCBs and adding or deleting format-5 DSCBs. 
Allocation for the current DD statement entry in the TIOT is now complete. The ISAM 
allocate routine must determine whether (1) this is a multivolume request and (2) 
whether this is the last of a series of space-type requests (that is, prime, index, overflow). 


Multivolume requests are handled as described in ‘“‘Multivolume Processing.” If the 
current request was the last of the DD statement entries in the TIOT for this allocation, 
the virtual storage work area is released, the TIOT fields are restored to their ‘‘pre-ISAM 
allocate”’ condition, and control is given to the job scheduler. If the current request is not 
the last of the DD statement entries, indicators are set to provide the necessary 
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information for the next entry to be processed, virtual storage areas are released, and 
control is returned to the job scheduler. Processing of the last volume of a multivolume 
prime request is the same as described for a single-volume request. 


Multivolume Processing 


This routine is entered to set up a loop in the ISAM allocate routine when an ISAM data 
set is to be allocated on more than one volume. 


When control is passed to this routine from the format-4 DSCB updating routine, the 
VTOC of the most recently processed volume will have been dequeued. It is necessary, 
in order to maintain information in virtual storage, to perform several of the functions 
without returning control to the scheduler or the allocate initialization routine. These, 
then, are the same operations performed in the allocate initialization routine: enqueuing 
the VTOC of the new volume using a RESERVE macro instruction, reading the 
format-4 and first format-5 DSCB into the allocate work area in virtual storage, and 
searching for a duplicate-name, format-1 DSCB (if found, it is read into virtual storage). 


Processing of the multivolume request then continues through the same steps as for a 
single-volume request (that is, an extent table is built and the format-1, format-2, and 
format-3 are built as required, the format-5 DSCBs are built and/or modified, and the 
format-4 DSCB is updated). 


Error Handling 


When the ISAM data set allocation routine encounters errors, it sets an error code in 

register 5 and transfer control to the error handling routine. This routine sets an indicator 

to prohibit the scheduler from giving control again to the ISAM allocate routine. 

Note: When there is not enough space on the current volume to make the allocation and 

the first DD statement of a single-volume request is being processed, the TIOT is 

returned to its “pre-ISAM allocate” status and control is returned to the scheduler. The . 
scheduler can then request that the allocation be made on another volume, unless the J 
user requested a specific volume. The error-handling routine loads the error code in | 
register 15, and then frees the ISAM allocate work area, dequeues the VTOC, and 

returns control to the scheduler which issues a message. A cross-reference between 

messages issued and the error code and the modules that issue each code is in the 

directory section. 


DOS VTOC Conversion 


To provide a standard allocation procedure for the Disk Operating System (DOS) user, 
the DADSM allocate routine includes a routine that converts the VTOC of DOS volumes 
to standard format. This conversion involves adding format-5 and format-6 DSCBs to 
the VTOC, and updating the format-4 DSCB. 


Initial Conversion Processing 


The DOS VTOC conversion routine receives control from the allocate initialization and 
extend routines when the DOS bit (bit O of the DS4VTOCI field) is set in the VTOC 
(format-4) DSCB. When control is passed, register 7 contains a pointer to the UCB 
defining the volume to be converted and register 13 points to the allocate work area, 
which will contain the format-4 DSCB for the volume to be converted, along with an 
IOB, ECB, channel program, DEB/DCB, and the address of the first format-5 DSCB on 
the volume. 


The DOS VTOC conversion routine first writes zeros over all free space (format-5) 
DSCBs and shared extent (format-6) DSCBs on the volume. These DSCBs are deleted 
because they are invalid. Since the DOS bit is on, a DOS allocation has been made on the 
volume, and the DOS allocate routines do not keep track of (1) available space (2) 
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shared-cylinder extents or (3) the high-water mark (the highest address of a format-1 
DSCB, which appears in the DS4HPCHR field of the format-4 DSCB). 


When the format-5 and format-6 DSCBs have been deleted, a new format-5 DSCB is 
created and initialized to reflect the free space that had been available when the volume 
was initialized, before any data sets were allocated. The highest track that can be 
allocated on the volume is calculated from the device characteristics table. The space for 
volume labels, IPL records if there are any on the volume, and the VTOC is subtracted 
from the new format-5 DSCB. 


Next, the conversion routine reads sequentially through the VTOC and establishes the 
highest address used for a format-1 DSCB (DS4HPCHR field). The nonsplit-cylinder 
data set extents in the format-1 and format-3 DSCBs are converted from 
CCHH/CCHH to RTA1/RTA2 form. Five extents are converted at a time and placed 
in the extent table. The converted extents are then subtracted from the free space. 


Split-Cylinder Processing 


If there are split-cylinder data sets on the volume, each format-1 DSCB on the VTOC is 
read again, and the split-cylinder extents are identified and converted from 
CCHH/CCHH to RTA1/RTA2 format. As each split-cylinder data set is encountered, 
its extent is entered in a format-6 DSCB, or, if the extent has already been entered in a 
format-6 DSCB, the count of number of data sets sharing the extent (the Z in the 
XXYYZ entry) is increased by one. A test is made to determine whether the 
split-cylinder data set extent in the extent table overlaps two format-6 extent entries. 
(This condition can occur when split-cylinder data sets are allocated under DOS; it is not 
allowed under OS.) If there is an overlap, the two format-6 extent entries are merged 
into a single extent and their data set counts are added together. 


When all of the format-6 DSCBs have been built, chained, and written to the VTOC, 
they are read in again. The format-6 extents are entered, five at a time, in the extent 
table, then subtracted from the free space (format-5) DSCBs. When all the extents have 
been subtracted, they are again read into virtual storage. The format-6 extents are 
converted to final form (from RTA/number-of-cylinders/number-of- data-sets format 
to XX YYZ) and written back to the VTOC. 


Completion of Conversion Processing 


When the split-cylinder processing is complete or when there are no split-cylinder data 
sets on the volume, the conversion processing is completed by converting the format-5 
DSCBs to the final XX YYZ format. The format-5 DSCBs are then written to the 
VTOC. This routine then turns off the DOS bit (bit 0 of the DS4VTOCI field) and turns 
on the “‘converted”’ bit (bit 4 of the DS4VTOCI field) and writes the format-4 DSCB 
back to the VTOC. Control is then returned to the calling routine, allocate initialization 
or extend. 

Conversion Limitations 


The DOS VTOC conversion routines cannot build accurate format-5 and format-6 
DSCBs if: 


e A split-cylinder data set is located on cylinder zero. 
e A split-cylinder data set is located on the same cylinder as the VTOC. 
¢ A split-cylinder data set is located on the same cylinder as a nonsplit-cylinder data set. 


« Two data sets have overlapping extents. 
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Extending Data Set and VSAM Data Space Allocations (Secondary Allocation) 


The extend routine dynamically allocates additional space to sequential data sets or 

VSAM data spaces that exceed the space allocated to them. Data sets with indexed 
sequential organization cannot be extended. Non-ISAM data sets can either be extended J 
on the last volume a data set currently occupies, or can be extended on a new volume. 

The system catalog and a VSAM data space can only be extended on the volume they 

currently occupy. The data set or VSAM data space can be extended by as many as five 
non-contiguous extents at a time, but no data set or VSAM data space is allowed to 

occupy more than 16 extents on a single volume. 


The extend routine uses the same methods as the allocate routine when extending on a 
new volume: it takes space from the format-5 DSCBs, builds a list of extents to be 
allocated, builds a format-1 DSCB (and a format-3 DSCB if required), then updates the 
format-5 and format-4 DSCBs. 


| When extending on the last volume the data set or VSAM data space currently occupies 
(also referred to as the current volume), the extend processing is the same as non-ISAM 
allocate processing, except that the format-1 DSCB is merely modified or a format-3 

| DSCB may be built if there isn’t one for the data set or VSAM data space on the VTOC. 
If there is a format-3 DSCB, it is modified. 


Split-cylinder data sets are extended differently from other data sets. The space for the 
extension is allocated on new cylinders, and only the one extended data set can reside on 
these new cylinders. The cylinders containing the extension are not regarded as part of 
the original split-cylinder extent, even though they may be contiguous to the original 
extent. No entry is made in the format-6 DSCB for split-cylinder data set extensions. 

| (VSAM data spaces cannot reside on split cylinders.) 


Input to the extend routine includes pointers to (1) the UCB, DEB, and DCB of the data 

set or VSAM data space to be extended and (2) the O/C/EOV work area defined by 

IECDSECT, which contains the JFCB for the data set or VSAM data space to be S 
extended, various control blocks and a channel program for reading and writing the 

DSCBs on the VTOC. Register 13 contains a code to identify the caller (end-of-volume, 

catalog management, or VSAM catalog) and to indicate whether the extension will be 

made on the last volume of the data set or VSAM data space, or on a new volume for a 

data set. 





Extend Initialization 


Extend processing begins by enqueuing the VTOC of the volume on which the data set 
or VSAM data space is to be extended. A RESERVE macro instruction with the 
‘‘set-must-complete”’ option is issued for the VTOC unless this option has already been 
set for the task. The VTOC (format-4) DSCB is then read in, the DADSM interrupt 
recording facility (DIRF) indicator is set (see ‘‘DADSM Interrupt Recording Facility’), 
and the format-4 DSCB may be written back to the VTOC, so that it can be determined 
if an interrupt that could invalidate the VTOC has taken place during extend processing. 


| Next, it must be determined whether the data set or VSAM data space being extended is 
on a device on which the last allocation was made by the Disk Operating System (DOS). 
If it was, the VTOC must be converted to standard format, before the extension is made. 
The extend routine (1) gets a work area for saving registers and for use by the DOS 
VTOC conversion routine, (2) builds the control blocks needed by the I/O supervisor 
(the DEB/DCB, IOB, and ECB) in the work area, and (3) reads the format-4 DSCB . 
into the work area. Control is passed to the DOS VTOC conversion routine and will be 
returned when the VTOC has been converted. If no errors are encountered during the 
conversion (indicated by a return code in register 8), extend processing is continued. 
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The extend initialization routine determines whether the extension is to be allocated on 

the current volume or on a new volume by the code passed in register 13 at entry to this 

routine. If the extension is to be made on a new volume, it is necessary to search the 

identifier (format-1) DSCBs on the VTOC for a duplicate name, since a duplicate name 

would be invalid. No search is made when the extension is to be made on the current 

volume, but it is necessary to determine the preferred track (the first track following the 
| end of the data set or VSAM data space being extended). 


When the format-4 DSCB has been read into virtual storage, the extend initialization 
routine converts requests in cylinders and average records (blocks) to tracks and 
accounts for user labels, if they are requested. 


Building the Table of Extents to Be Allocated 


The search for available space on the volume begins with the extend routine attempting 
to allocate space contiguous to the extent of the data set (this is the preferred extent). If 
there is not enough contiguous space to fill the request, the routine builds a pushdown 
list of extents of as many as five entries representing non-contiguous areas that are 
smaller than, but closest in size to the requested space. If, while the pushdown list is 
being built, an extent equal to the request is found, that extent is allocated. If no extent 
in the format-5 DSCBs equals the request, the extension is allocated from the extent that 
is larger than and closest in size to the request. If no extent is found that is equal to or 
larger than the request, the extension is allocated from the pushdown list of extents. As 
few as two and as many as five of the extents in the pushdown list may be required to fill 
the request. The request is always filled using the fewest possible number of extents. The 
extent, or extents, required to fill the request are entered in the extent table. 


Building and/or Modifying Format-1 and Format-3 DSCBs 


When the extent table has been successfully completed and contains an entry or entries 
representing the extents to be allocated, the format-1 and/or format-3 DSCBs must be 
built or modified to indicate the extension. 


First the 288-byte extend work area gotten by the extend initialization routine is cleared. 
If the extension is to be allocated on the current volume, the format-1 DSCB is read into 
the work area. If the format-1 DSCB is full (that is, it has three extent entries), the 
format-3 DSCB is read into the work area, if a format-3 DSCB exists for the data set or 

| VSAM data space. If no format-3 DSCB exists for the data set or VSAM data space, one 
is built. 


Then, using the extent table entries, the format-1 and/or format-3 DSCBs are completed 
and written back to the VTOC; the format-3 is written first, then its address is entered in 
the format-1 DSCB, which is then written to the VTOC. 


For extensions on a new volume, a format-1 DSCB must be built using the information 
from the JFCB. If there are more than three extent entries in the extent table, a format-3 
DSCB must also be built. When completed, the format-3 DSCB is written to the VTOC, 
its address put in the format-1 DSCB, and the format-1 is written. 


Updating the Format-5 DSCBs 


The first format-5 DSCB is read into the 300-byte work area, and again using the extent 
table entries, format-5 DSCBs may be updated, added, or deleted. 


| If an entire contiguous area has been allocated to the data set or VSAM data space 
during the extend processing, the format-5 extent entry for that area is completely 
removed from the format-5 DSCB. The vacated extent in the format-5 DSCB is removed 
by moving forward by one location all subsequent format-5 extent entries in that DSCB 
and in other format-5 DSCBs that may be chained to it. If only part of an available area 
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is allocated, the space is taken from the beginning of the area, and the track following the 
allocated area becomes the lower boundary of the available area. 


If the space to be allocated begins on a cylinder boundary, the allocation may be made 
from within an available area. In that case, the allocation must create a new extent entry 
in the format-5 DSCB, and the space preceding and following the allocated space will 
become two areas identified in two format-5 extents. This causes all subsequent format-5 
extents in that and any chained format-5 DSCBs to be moved back one location. 





If a free VTOC record (format-0 DSCB) must be written as a result of a format-5 DSCB 
being removed, the format-O0 DSCB is written before the format-4 DSCB is modified. 


Updating the Format-4 DSCB 


Since this is the end of extend processing, this routine reads in the format-4 DSCB, and 
tests and resets the DIRF indicator in preparation for writing the format-4 back to the 
VTOC. This routine also handles error conditions encountered in the previous extend 
processing (such as too many extents on the volume or not enough free records left on 
the VTOC), by setting an error return code and returning to the caller. 


If entered with no previous errors, this routine writes a format-O DSCB if requested by 
the format-5 updating routine, then updates the format-0O count and highest extent used 
for a format-1 DSCB and writes the modified format-4 DSCB to the VTOC, dequeues 
the VTOC, and frees work areas. 


This routine then sets the XCTL ID to the name of the calling routine, builds the 
interface required, and returns control to the caller. 


| Deleting Data Sets and VSAM Data Spaces 


The scratch routine is used to reverse the allocation process for all types of data sets and 

VSAM data spaces. When a data definition (DD) statement specifies that a data set or a 
| VSAM data space is to be deleted, the scratch routine will be entered from the scheduler | 

at step termination. The scratch routine is also given control as a result of the issuance of 

the SCRATCH macro instruction by the problem program, a data set utility program, or 
the VSAM catalog routines. The extents in the data set’s or VSAM’s data space identifier 

(format-1) DSCB and extension (format-3) DSCB are added to a format-5 DSCB, and a 

free VTOC record (format-O0 DSCB) is written over each of the data set’s or VSAM’s 

data space format-1, format-2, and format-3 DSCBs. Only ISAM data sets have index 

(format-2) DSCBs and only data sets or VSAM data spaces with more than three extents 

on a volume have format-3 DSCBs. 


Extents allocated to split-cylinder data sets are not released until all of the data sets 
sharing a given cylinder extent are deleted. 


Scratch Initialization, Volume Verification, and Volume Mounting 


When the scratch routine is entered, register O will contain either a pointer to a unit 
control block or all zeros. Register 1 will contain a pointer to a parameter list that (1) 
indicates whether the purge date is to be overriden, (2) points to the data set name of the 
data set or VSAM data space to be deleted, and (3) points to a list of one or more 
volume entries, one for each volume on which the data set resides. Requests to scratch a 
VSAM data space are made one volume at a time; the parameter list passed by VSAM 
catalog management will contain only one volume entry. The volume list consists of a . 
2-byte count of the number of volumes in the data set or VSAM data space to be 

scratched and a 12-byte entry for each volume of the data set or VSAM data space. The 

12-byte entry is used to specify the device code and the volume serial number. Only one 

data set or VSAM data space can be deleted with each request. J 
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When a UCB pointer is passed in register 0, the scratch routine verifies that the device 
represented by the UCB is on-line and, in case the volume containing the data set or 
VSAM data space is not mounted, that a volume currently mounted is eligible for 
demounting (SYSRES, SYSIN, SYSOUT, and shared volumes cannot be demounted). 
When (1) no UCB pointer is passed or (2) the device represented by the UCB address 
passed is not eligible for demounting, the scratch routine searches the UCBs using the 
UCB lookup table and finds the UCB with the volume serial number that matches the 
volume serial number passed in the volume list (by way of the scratch parameter list). 
When the matching volume serial number is found, the UCB is tested (1) to verify that 
the device it represents is on-line, and (2) to determine whether the volume it represents 
is eligible for demounting. 


If the volume containing the data set or VSAM data space to be scratched is not 
mounted and a mounted volume can be demounted, a mount message is issued, to which 
the operator can respond either by replying “MOUNTING” and mounting the volume, 
or by replying ‘““SKIP’’. If he mounts the volume, its label is read and the volume number 
verified (SMF information about the volume being demounted will be collected for 
systems with the SMF feature). If the operator replies ““SKIP”’, the next volume in the 
volume list is processed. 


The scratch initialization routine builds the control blocks required by the I/O supervisor 
to read from and write to the VTOC. Next, the VTOC is enqueued using a RESERVE 
macro instruction with the “‘set-must-complete”’ option, and the addresses of the 
format-4 and the first format-5 DSCBs on the VTOC are converted from relative to 
absolute (from TTR to CCHHR). 


When a data set residing on more than one volume is to be deleted, the scratch routine 
maintains control until all volumes have been processed. It is possible, however, that, 
because of a permanent I/O error or because a volume is not mounted, the data set may 
not be deleted from all volumes. The success or failure (and reason for failure) of the 
scratch processing is communicated in the last byte of the volume list entry (the scratch 
status code). Success or failure is also indicated by the return code passed in register 15 
when control is returned to the caller. 


DSCB Deletion and Split-Cylinder Processing 


When it has been verified that the volume containing the data set or VSAM data space to 
be deleted is mounted, the scratch routine reads in the format-4 DSCB and the format-1 
DSCB for the data set or VSAM data space. If the data set is password-protected, 
control is transferred to the READPSWD module of the open security function. 
READPSWD verifies the password and returns control. 


Next, the purge date for the data set or VSAM data space is checked, if it is not 
overridden. The format-4 DSCB is processed for DIRF (see ““DADSM Interrupt 
Recording Facility’’). The extents of the data set’s or VSAM’s data space format-1 
DSCB (and format-3 DSCBs, if there are any) are entered in the extent table (this table 
can contain as many as 16 extent entries); when the extents have been converted from 
CCHH/CCHH to RTA1/RTA2 and entered in the table, a format-0 DSCB is written 
over the format-1 and format-3 DSCBs. Note: Format-2 DSCBs for ISAM data sets are 
also written over with format-O0 DSCBs during this processing. 


When the format-1, format-2, and format-3 DSCBs have been deleted, this routine reads 
in either the format-6 DSCB if a split-cylinder data set is being deleted, or the first 
format-5 DSCB if no shared extents are involved. 


Whether split-cylinder data sets are involved or not, the scratch routine now sorts the 
extent table into ascending relative track address sequence. However, if the data set is on 
split cylinders, each extent in the format-6 DSCB is compared with the extent table 
entries until the appropriate format-6 extent is found. When found, the number of data 
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sets sharing the extent (the Z of XX YYZ) is decreased by one. If the number of data sets 

goes to zero, the extent is removed from the format-6 and each subsequent format-6 

DSCB extent must be moved up one location to close the vacated space on the VTOC. If 

the number of users does not go to zero, the format-6 DSCB is written back to the 2 
VTOC with only the number of users changed, but the deleted data set’s extent must be | 
removed from the extent table, because no space will be made available until all data sets 

have been deleted from the shared extent. At conclusion of the split-cylinder processing, 

the first format-5 DSCB is read into virtual storage. Note: VSAM data spaces cannot 

reside on split cylinders. 


Updating the Free Space on the Volume (Format-5 DSCB) and the VTOC (Format-4) DSCB 


The format-5 DSCBs are updated by sequentially merging the extent table entries with 

the existing format-5 DSCBs. If the deleted data set shares cylinders with another data 7 
set and no space was released, the merge is bypassed. As the format-5 DSCBs are read, 

their extents are converted from XXYYZ to RTA1/RTA2; before the updated format-5 

DSCBs are written back to the VTOC, the extent entries are again converted from 

RTA1/RTA2 to XX YYZ format. 


When the format-5 DSCBs have been updated, the number of free VTOC records 
(format-0 DSCBs) now on the VTOC must be updated if the number has changed. The 
format-4 DSCB is then written back to the VTOC and the VTOC is dequeued. If the 

| data set or VSAM data space is on multiple volumes, the scratch routine can now begin 
to process the next volume. If processing is complete, the return code is loaded in register 
15 and control is returned by issuing an SVC 3. If the system has the SMF feature, a 
type 17 SMF record will be written before control is returned. 


Freeing Unused Space (Partial Release) 


The release routine deletes extents (area identifications) from the format-1 and/or ' 
format-3 DSCBs of a data set, beginning at a specified track or cylinder and continuing J 
to the end of the data set’s allocated extent. For example, suppose a data set was 

allocated three extents at the beginning of a job. During the job, a program writes 

records up to the second track in the third extent of the data set. If the job specified 

release of the unused space in the data set, the close routine of O/C/EOV would request 

the release routine to release the tracks following the last used track of the third extent. 

If either the original request is a request in cylinders or the ROUND option was 

specified, the area released begins at the first cylinder boundary following the last track 

written. The tracks released are returned to available space for future allocation, as is 

done by the scratch routine. 


Note: Release processing of ISAM data sets is not possible because information in 
overflow areas might be deleted. 


The release routine is entered via XCTL from the reposition I/O module of 
checkpoint/restart and from close processing. 


When the release routine is entered, a work area pointed to by register 4 will contain (1) 
the format-1 DSCB and JFCB for the data set, and (2) the control blocks and a channel 
program required to read from and write to the VTOC. (This work area is referred to as 
the O/C/EOV work area.) Register 2 will contain a pointer to the user’s DCB and 
register 10 a pointer the UCB. 
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Updating Format-1 and Format-3 DSCBs 


When entered, the release routine first gets a work area for reading in the format-4 
(VTOC) DSCB and format-5 (free space) DSCB, enqueues the VTOC, and reads in the 
format-4 DSCB using the VTOC address in the unit control block (UCB). After DIRF 
processing (see ““DADSM Interrupt Recording Facility”), this routine determines 
whether the last track written to on the data set (obtained from the user’s DCB) is in an 
extent of the format-1 DSCB or an extent of the format-3 DSCB. 


If this extent is in the format-1 DSCB, its location is calculated. The address of the first 
track to be released is calculated; the identification of the released extent in 
CCHH/CCHH is converted to RTA1/RTA2 and entered in the extent table. Any 
subsequent extents in the format-1 DSCB are also converted and entered in the extent 
table, and their identifications are removed from the format-1 DSCB. Next, it is 
determined whether there is a format-3 DSCB on the VTOC for this data set. If so, it is 
read in, its extents are converted and entered in the extent table, and a free VTOC 
record (format-O DSCB) is written over the format-3 DSCB on the VTOC. 


If the last track to be written on the data set is contained in the format-3 DSCB, the 
format-3 DSCB is read in and, again, the location of the first track to be released is 
calculated. The extents following this track are converted to RTA1/RTA2 format and 
entered in the extent table. Then the extents are written over with zeros and the 
format-3 DSCB is written back to the VTOC. 


When SMF information is required, the task’s TCB will contain a pointer to the timer 
control table (TCT), and the CVT will contain a pointer to the system management 
control area (SMCA). If the fourth bit of the SMCAOPT is set to one, data set 
information is required. Using the extent table, this routine adds the number of released 
extents and the amount of space released into the appropriate fields of the data set entry 
in the TCT I/O table of SMF (the calling routine uses this information when it 
constructs a type-14 or type-15 SMF record). 


This routine then writes back the format-1 DSCB whether or not any space has been 
released. If space is being released, this routine sorts the extent table into ascending RTA 
sequence, and reads in the first format-5 DSCB. 


Updating the Format-§5 (Free Space) and Format-4 (VTOC) DSCBs 


When the format-1 and format-3 DSCB updating is complete, this routine merges the 
extent table entries with converted format-5 extents, reconverts the merged extents from 
RTA1/RTA2 format to XXYYZ, and writes the format-5 DSCBs back to the VTOC. 


Format-4 DSCB updating involves first processing for DIRF (see ““DADSM Interrupt 
Recording Facility”) then accounting for the number of free VTOC records (format-0 
DSCBs) on the VTOC and writing the format-4 DSCB back to the VTOC. 


At the conclusion of release processing the release work area is freed and the VTOC is 
dequeued. 


A completion code is returned to the caller in register 1. 
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The VTOC-Related Service Routines 


Renaming Data Sets 


Data sets on direct-access volumes are renamed using the RENAME macro instruction 

(SVC 30), which invokes the rename routine. VSAM can use the rename routine if a 

data space is established for only one VSAM data set (UNIQUE). The format-1 DSCB 

of the data set to be renamed is read in (after it is verified that the new name is not : 
already on the volume), the 44-byte name is changed, and the format-1 DSCB is written 

back to the VTOC. Only a single data set may be renamed by each issuance of the 

RENAME macro; however, multivolume data sets may be renamed, if either all volumes a 
are mounted simultaneously, or one of the mounted volumes can be demounted 

(physically and logically). 


When the rename routine is entered, register 0 must contain either a pointer to a unit 
control block or all zeros (no UCB address specified). Register 1 will contain the address 
of a parameter list that contains pointers to (1) the name of the data set to be renamed, 
(2) the new name of the data set, and (3) a volume list. The volume list contains a 2-byte 
count of the number of volumes in the data set to be renamed and a 12-byte entry for 
each volume of the data set. The 12-byte entry is used to specify the device code and the 
volume serial number. 


If a UCB address is passed in register 0, it must be verified that the device represented is 
on-line and that the volume represented in the UCB is eligible for demounting (SYSRES, 
SYSIN, SYSOUT, and shared volumes are not eligible). 


If no UCB pointer is passed or if the volume represented by the UCB address passed is 

not eligible for demounting, a UCB must be found with a volume serial number that 

matches one of the volume serial numbers in the volume list. When a match is found, the J 
UCB is tested to determine (1) that its device is on-line and (2) whether its volume is ‘ 
eligible for demounting. 


When it has been verified that a volume to be renamed is mounted or that a mounted 
volume can be demounted, the rename routine builds the control blocks and channel 
programs required by IOS to read from and write to the VTOC. If the volume containing 
the data set to be renamed is not mounted, a mount message is issued, to which the 
operator can respond either by replying “MOUNTING” and mounting the volume or by 
replying ‘““SKIP’’. If he mounts the volume, its label is read and the volume serial number 
verified (SMF information about the volume being demounted will be collected for 
systems with the SMF feature). If the operator replies ““SKIP’’, the next volume in the 
volume list is processed. 


When a data set residing on more than one volume is to be renamed, the rename routine 
maintains control until all volumes have been processed. It.is possible, however, that, 
because of a permanent I/O error or because a volume cannot be mounted, the data set 
may not be renamed on all volumes. The success or failure (and reason for failure) of the 
rename processing is communicated in the last byte of the volume list entry (the rename 
status code). Success or failure is also indicated by the completion code passed in register 
15 when control is returned to the caller. 


When a volume containing a data set to be renamed is mounted, the VTOC is searched 2 
for a data set name that is the same as the new name in the rename parameter list (a 
duplicate name is not allowed on the VTOC). Next, the VTOC is enqueued, and the 
identifier (format-1) DSCB of the data set to be renamed is read in. If the data set is 
password protected, an exit is taken to the READPSWD module of the open security 
function, which verifies the password by polling the operator. When the password has 
been verified, control is returned to rename; the name in the format-1 DSCB is changed, 
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the format-1 DSCB is written back to the VTOC, and the VTOC is dequeued. If there 
are additional volumes that contain the data set to be renamed, processing is repeated. If 
the system includes SMF, type-18 records (see OS/VS System Management Facilities 
(SMF) ) will be written when processing is completed. Work areas are then freed, the 
completion code is loaded, and control is returned to the calling routine. 


Reading a DSCB from the VTOC 


The obtain routine is entered when the OBTAIN macro (SVC 27) is issued. The function 
of the obtain routine is to read a DSCB into a work area provided by the caller. 


The caller has two options when he issues an OBTAIN macro: he may specify the data 
set name and receive the data portion (last 96 bytes) of the format-1 DSCB for that data 

| set or VSAM data space and the absolute address of the DSCB (search option), or he 
may specify the absolute track (CCHHR) of the DSCB he wants (seek option) and 
receive the complete. DSCB (140 bytes). Only one DSCB can be obtained with each 
issuance of the OBTAIN macro instruction. The volume on which the DSCB resides 
must be mounted. TSO uses the obtain routine to get information about a VSAM data 
set or index. However, only the “search” option is available. The data set name for a 
VSAM data set appears only in a VSAM catalog, not in the VTOC. Therefore, the 
obtain routine must issue a VSAM LOCATE command to retrieve physical extent 
information from the VSAM catalog. 


When the obtain routine receives control, register 1 points to a parameter list that 
contains (1) a code specifying the search or seek option, (2) the address of a data set 
name (search option) or a pointer to the absolute track address (CCHHR) of the DSCB 
he wants (seek option), (3) the address of the volume serial number of the volume on 
which the DSCB resides, and (4) the address of a 148-byte work area, into which the 
DSCB and its absolute track address are read. 


Obtain processing begins with getting a work area used for control blocks and channel 
programs. Next, a search of the UCBs is conducted to find the UCB with the volume 
serial number that matches the volume serial number passed in the obtain parameter list. 

| If the caller is in problem state, obtain then branches to the resident validity-checking 
routine to verify that the caller’s 148-byte work area has a protection key that matches 
the key in the current task’s TCB. Then obtain builds a DEB and checks for the RPS 
feature; if it is present on the device, the channel program is modified by adding a CCW 
that contains an RPS set-sector operand and the sector value, (which is converted before 
the channel program is executed). 


If the search option has been specified, the 96-byte data portion of the format-1 DSCB 
of the named data set is read into the caller’s work area, along with its absolute track 
address (CCHHR). If the obtain request is for a VSAM data set, the search of the 
VTOC will fail because a VSAM data set name appears only in a VSAM catalog. The 
VSAM data space name appears in the format-1 DSCB. Before taking an error exit (no 
data set name found), the obtain routine checks.the format-4 DSCB to determine 
whether there are VSAM data sets on the volume. If so, the obtain routine issues a 
VSAM LOCATE command to get extent information from the VSAM catalog. This 
information is read into the caller’s work area. 


If the seek option is in effect, the format-4 (VTOC) DSCB is read to verify that the 
absolute track address of the DSCB specified is in the VTOC extent. Next the complete 
DSCB is read in over the format-4 DSCB. 


Obtain processing is now complete. The obtain work area is freed, the completion code is 
loaded in register 15, and control is returned to the caller via SVC 3. 
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Obtaining Information About Free Space on a Volume 


information is used by the System Management Facilities (See ‘‘Support for the System 
Management Facilities (SMF)’’) and by the ‘‘DISPLAY SPACE” command. LSPACE is 
invoked by the issuance of an SVC 78. 


The LSPACE routine accumulates information about free space on a volume. This ) 


At entry to LSPACE, register 0 points to a UCB, and register 1 indicates the functions 
to be performed as follows: 


e If the three low-order bytes of the register have a nonzero value, space information is 
to be obtained for the ‘DISPLAY SPACE” command. The value is a pointer to a 
30-byte message area that will receive the space information. 


e If the high-order byte of the register is 0, no space information is required for SMF. 


e If bit one of the register is set to 1, space information may be required for SMF, 
depending upon other conditions to be tested. 


e If bit zero of the register is set to 1, space information is required for SMF. 


The LSPACE routine checks the UCB passed to ensure that it identifies a direct-access 
device and checks the message area to be sure it is in the user’s area (if the user is in 
program state). LSPACE obtains a work area in which it builds channel programs and 
their associated control blocks. 


Next, a work area is obtained, the I/O supervisor control blocks are built in the work 
area, and a channel program for reading the format-4 and first format-5 DSCBs is 
relocated to the work area. If the device has the rotational position sensing (RPS) feature 
(see “‘Support for Rotational Position Sensing (RPS)’’), the set-sector command is added 
to the channel program. The resident conversion routine is used to establish the 
set-sector value. LSPACE then builds the control blocks needed by IOS in the work 
area. 





When the channel program and the control blocks are established, the VTOC is 
enqueued using a RESERVE macro instruction, and the channel program is executed to 
read in the format-4 and first format-5 DSCB. The channel program is modified to read 
in the subsequent format-5 DSCBs on the volume. 


The extent, cylinder, and track information is accumulated from the format-5 DSCBs. If 
SMF information is required, the volume label is read in and a type-19 record (see 
OS/VS System Management Facilities (SMF) ) is constructed and written to the SMF 
data set. 


If the “DISPLAY SPACE” command is in effect, the accumulated extent, cylinder, and 
track information is converted to EBCDIC and moved to the 30-byte message area 
provided by the caller. The message looks like this: 


SPACE=CCCC,TITT,AAAA/ cccc, tttt 


Where: 

CCCC = Total number of free cylinders : 
TITTT = Total number of free tracks 

AAAA = Total number of free extents 

cccc,tttt = Largest contiguous free area in cylinders and tracks 


LSPACE processing is now completed by dequeuing the VTOC, freeing the LSPACE 
work area, loading the completion code in register 15 and the message address in register 
1, and returning control to the caller via SVC 3. 
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Processing Password Data Set Requests 


The protect routine is used to add, replace, delete, or list entries in a password data set. 
The protect routine gains control when the PROTECT macro instruction executes an 
SVC 98. 


Note: Another protection scheme is used for VSAM data spaces. See OS/VS Virtual 
Storage Access Method Logic for a description of the protection provided for VSAM 
data spaces. 


Validity Checking 


Input to the protect routine is the address of a parameter list. The size and contents of 
the parameter list depend on whether a protect routine is going to add, replace, delete, or 
list an entry in the password data set. See OS/VS Data Management for System 
Programmers , for an explanation of the parameter lists and the functions of the 
PROTECT macro instruction. 


If (1) the parameter list is incomplete, (2) the password name specified in the parameter 
list is not valid, or (3) there is no password data set, an error code is set. Also, if a buffer 
address is specified in the parameter list, the buffer address is tested by the 
validity-checking routine that resides in the system nucleus. The routine determines 
whether the buffer location has a protection key equal to the protection key in the task 
control block (TCB) of the routine that issued the PROTECT macro instruction. 


If the parameter list information is valid, the protect routine enqueues the 
system-residence volume, which contains the password data set. An OBTAIN macro 
instruction is issued to read the format-1 DSCB for the password data set. Next the 
control blocks needed by IOS are built, and a channel program to search and update the 
password data set is initialized. 


Processing the Password Data Set 
The PROTECT request is processed by one of the following four routines: 
e The add routine—if the requested function is to add a record to the password data set 


e The replace routine—if the requested function is to replace a record in the password 
data set 


¢ The delete routine—if the requested function is to delete a record in the password 
data set 


e The list routine—if the requested function is to list a record in the password data set 


Updating the Format-1 DSCBs 


If the function requested is to add an entry to the end of the password data set, the 
DS1LSTAR field (address of the last block written to the data set) of the format-1 
DSCB for the password data set will have to be updated and written back to the VTOC. 


When a data set has been newly protected, it is necessary to change the protection status 
of the data set. This is done by reading in the format-1 DSCB, modifying the password 
protection bits of the DS1DSIND field, and writing the format-1 DSCB back to the 

| VTOC. (The VTOC is enqueued during the updating.) The volume that contains the 
data set is located either (1) by issuing a LOCATE macro instruction if the data set is 
cataloged or (2) using a user-supplied list of volume serial numbers that is provided as 
part of the input. The UCBs are searched for volume serial number that matches the 
number in the volume list. If the newly protected data set resides on multiple volumes, 
the format-1 DSCB is modified on each volume. When all volumes have been processed, 
the work areas are freed, a completion code is loaded into register 15 (see OS/VS 
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Data Management for System Programmers ), and control is returned to the calling 
routine. 


Method of Operation Diagrams S) 


The method of operation diagrams are organized to help you proceed from a lesser to a 

greater degree of detail. The overview diagrams (Diagrams 2, 3, 7, 11, 14, 17, and 21) 

summarize the processing steps and present generalized descriptions of the input and 

output; these diagrams are to be used to get to lower-level diagrams. These lower-level 

diagrams contain details about processing in the center (process) block. The numbers on " 
the process steps are cross-referenced on the facing page to extended descriptions of the 

processing steps, which in turn, are cross-referenced to module names (the names on the 
microfiche) and labels in these modules where the function is coded. » 
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Diagram 04. Allocate Initialization—Duplicate-Name Search and Non-ISAM Allocate Request Conversion 
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Diagram 04. (Continued) 


EXTENDED DESCRIPTION 


Gets 694-byte work area used by all Allocate routines. Builds a DEB in 
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EXTENDED DESCRIPTION 


When a duplicate name F1 DSCB is found on the VTOC, this section 
verifies than an ISAM data set is being allocated. For ISAM data sets, the 
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trol to 1GG03211 (ISAM allocate). 


Determines what kind of allocation request is being made: in cylinders, in 
tracks, or in average records. For zero-quantity requests specifying user 
labels, transfers contro! to 1G30325K. For zero-quantity requests, 
transfers control to |GGO325E. 


Converts cylinder requests to tracks. 


Converts average record requests to tracks. 


For split-cylinder requests, converts percentage of split cylinder requests 
to tracks, saves number of data sets (number of JFCBs) sharing the 
cylinder (s). 


Calculates the space required for directories and converts the quantity to 
tracks. 
For absolute-track requests, transfers control to 1GG0325C. 


For all allocation requests in tracks (except absolute-track requests), 
cylinders (including split-cylinder requests), or average records, transfers 
control to 1|GG0325D, except when user labels are specified (goes to 
1GG0325K). 


For suballocation requests, transfers control to 1GG0325S. 


1GG0325A 
(Cont.) 


CYLTRKRC 


MULT 
NOCAL 
SHARDCYL 


DIRCAL 


CLEANUP 
REGULAR 


SUBALLOC. 





31307 WSAGVG SA/SO_ 8F 


Diagram 05. Non-ISAM Allocation—Free Space Search and F1/F3 DSCB Building 
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Diagram 05. (Continued) 


EXTENDED DESCRIPTION 


Converts first F5 DSCB extents from XXYYZ format to RTA and the number 
of tracks. Finds smallest extent that has the number of tracks needed. 


Determines request type (in cylinders, tracks, or average records) and makes 


an entry in the extent table for the user-label track (or tracks, for split-cylinder 


requests). Modifies the F5 extent from which the user-latiel track was taken. 


Transfers control according to request type: zero-quantity request (to 
1GG0325E), regular cylinder/track request (1GG0325D). 


This routine searches the F5 DSCBs until the extent containing the absolute 
track requested is found; when found, this routine determines whether there 
is enough available space at the specified location to fill the request. 

Moves the F5 extent that fills the request to the extent table. Transfers con- 
trol to |GGO0325E. 


Modifies the channel program and reads the F1 DSCB. 

Verifies that the data set or VSAM data space was originally allocated 
contiguously. 

Creates new F1 DSCB extents and updates the old F1 DSCB extents. 
Transfers control to |GG0325M. 

Verifies that there is enough space in the extent to fill the request. Enters 
the extents to be suballocated in the extent table. 


| Q) erases the VTOC, builds an F1 DSCB for the new data set or VSAM 


uoleledgo jo pour, 


6P 


3 


data space, writes the new F1 and, if not all of the old F1 DSCB extent 
was suballocated, the old F1 is written back to its original location. (If all 
of the old F1 was suballocated, the new F1 DSCB is written over it.) 


Updates the high-water mark (DS4HPCHR) and the number of FOs (if 


changed) in the F4 DSCB. Sets high-order byte of register 8 to X'FF' and 
transfers control to 1|GG0325H to conclude processing. 


MODULE 
NAME 


START 


TESTYPE 


EXIT 


INSERTLO 


SUBALLOC 
DSFOUND 


MODNEWF1 








EXTENDED DESCRIPTION 


Converts extents of the first F5 DSCB from XXYYZ to RTA and the num- 
ber of tracks format, when not entered from the user-label routine (|GGO325K, 
Determines request option: CONTIG, MXIG, ALX, or no-option specified. 


Searches F5 DSCBs and builds entries for the extent table according to the 
option specified: 


e CONTIG request CONTIG 
e No option specified BLANK 
© MXIG or ALX ALX 


Builds a pushdown list of as many as five extents (four if user labels were PSHDOWN 
specified) when more than one extent is required to fill the request. 


Transfers control according to request type: split-cylinder request on a LOADPTR 
drum device (1GG0325J), split-cylinder request on a device other than a drum 
(1GG0325L), or non-split-cylinder request (1GG0325€E). 


Sorts extent table into ascending RTA sequence. FIRSTPAS 


Branches to subroutine that builds an F1 DSCB and an F3 DSCB, if required. START1 
Branches to the resident conversion routine to convert extent table entries 
from RTA1/RTA2 to CCHHCCHH and enters them in the F1 or F3 DSCB. 


When a partial F1 DSCB has been supplied, builds the F1 using the partial BLOF1B 
DSCB as a model. 

Builds an F1 OSCB from the JFCB information. BLDFIA 
Builds an F3 DSCB and chains it to the F1 DSCB. BLDF3 


Updates the hole count (DS4DSREC) and high-water mark OLDHIWAT 
(DS4HPCHR) in the F4 DSCB, if necessary. 
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Diagram 06. Non-ISAM Allocation—Split-cylinder Data Set Allocation and F5 and F4 DSCB Updating 
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Diagram 06. (Continued) 


EXTENDED DESCRIPTION 


1 This module is entered when a split-cylinder allocation is requested for a voi- 
ume on any DASD except a drum. 


Links to the resident conversion routine (IECPCNVT) to convert the RTA1 entry 
in the extent table to CCHH and verify boundary alignment, then enters the 
converted extent in the F1 DSCB. If the first extent is the user-label extent, 

this routine completes the DS1EXT1 field for the user label, then converts the 
second extent table entry from RTA1 to CCHH and enters it in the F1 DSCB. 


Determines whether user labels are requested. 


Calculates and converts the RTA2 entry: enters the CCHH in the F1 DSCB. 


Calculates RTA1/RTA2 of next split-cylinder data set to be allocated. 
Enqueues VTOC. 


Builds an F1 DSCB using information in the JFCB for each data set sharing 
the cylinders. Writes F1 DSCB to VTOC. 


For the second and subsequent data sets sharing the cylinders, this routine cal- 
culates the CCHHCCHH and enters it in the DS1EXT1 field of each data set's 
F1 DSCB. 


Updates the F4 DSCB and transfers control to |GG0325F. 


Initializes pointers and counters, clears the F6 DSCB output area. Determines 
if there is an F6 DSCB currently on the volume, and if not, branches to a sub- 
routine that searches for a hole (FO DSCB) over which the new F6 can be 
written. 


If there is already an F6 DSCB on the VTOC, reads in the first and subsequent 
F6 DSCBs. Searches the F6 for an available location to enter the split-cylinder 
extent. 


3 Branches to a subroutine that converts the extent table entry from RTA1/ 
RTA2 to XXYYZ format and moves the converted extent to the F6 DSCB. 
If no more DSCBs are to be built for split-cylinder data sets, transfers con- 
trol to |GG0325F. 


Chains and writes new/modified F6 OSCBs to the VTOC. If more than one 
entry in the extent table (user labels are requested), sorts the extent table into 
ascending RTA sequence. 


Transfers control to |GG0325G. 


QO": module is entered when a split-cylinder data set is to be allocated ona 

volume residing ona drum. Links to the resident conversion routine 
(IECPCNVT) to convert the RTA1 of the first extent table entry to CCHH 
format and enters it in the F1 DSCB. If the first entry is for a user label, this 
routine completes the DS1EXT1 field for the user label, then converts the 
RTA1 of the second extent table entry to CCHH format and enters it in the 
F1 DSCB. 


Updates the DS1EXT1 field for each data set sharing the extent. 


When the data set extent has been converted and entered in the F1 DSCB, this 
routine completes the rest of the F1, using information from the JFCB. Issues 
an ENQ macro instruction (with the set-must-complete option). Links to a 
subroutine that writes the F1 DSCB to the VTOC. 
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READF6 
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WRITEF6 
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EXTENDED DESCRIPTION 


Updates the hole count and high-water mark (DS4DSREC and DS4HPCHR 
fields, respectively) of the F4 DSCB, if necessary. 


Checks for more split-cylinder data sets to be allocated. If all have been allo- 
cated, restores the extent table, and tests for user labels. If a user-label 
request has been processed, the extent table is sorted into ascending RTA 
sequence. Transfers contro! to |GG0325G. 


Initializes pointers and counters, clears F5 DSCB output area. If the first 
F5 DSCB is not in virtual storage, branches to a subroutine that reads it 
in. Branches to a subroutine that converts the F5 extents from XXYYZ 
format to RTA1/RTAZ2. 


Determines when and where the extent table entries should be merged with 
the F5 DSCB extents. 

Merges extent table entries with the F5 DSCB extents if the space is allocated 
from the beginning or middle of an F5 extent. 

Merges extent table entries with the F5 OSCB extents if the space is allocated 
from the end of an F5 extent or if it takes all of the extent. 


When a new F5 DSCB has been created, searches for a hole (FQ OSCB) on the 
VTOC over which the new F5 can be written. 

Converts RTA1/RTA2 entries to XXYYZ format in the updated/new F5 
DSCB. Chains the F5 OSCB, completes the fields and branches to a sub- 
routine that writes the F5 to the VTOC. 


When the second and subsequent F5 DSCBs must be read into virtual 
storage, this routine links to a subroutine that reads in the next F5 and 
then converts its extents from XXYYZ to RTA1/RTAZ2. 


Branches to a subroutine that writes the last F5 DSCB to the VTOC; transfers 
control to |GG0325H. 


Sets/resets DIRF bit; tests for successful entry from the subal/ocate routine. 
Tests DIRF indicator; if there was a previous interrupt or if a permanent |/0 
error has been encountered, returns to caller without writing the F4 back to 
the VTOC. 


Calculates the TTR or converts the CCHHR of each non-split-cylinder data 
set to TTR format and stores it in the JFCB. 

If an FO DSCB is to be written (when an F5 DSCB is to be removed), this 
section branches to a subroutine that writes the FQ DSCB. 


Modifies the channel program and links to a subroutine that writes the 
modified F4 DSCB to the VTOC. 


When directory processing is required, this section links to a subroutine that 
dequeues the VTOC. Loads registers required by CVOL and transfers control 
via XCTL to IGGOCLF2. 


Entered for non-directory requests, this section dequeues the VTOC, loads 
the completion code, releases the allocate work area (if RPS feature is present, 
deletes |GGO19EK and releases RPS work area) and returns control to the 
caller via SVC 3. 


MODULE 
NAME 
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(Cont.) 


SPLITEST 


DADSMSTR 1GG0325G 


DUELOOP 
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SEARCH 


WRITEFS 
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WRITEFNL 
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WRITEF4 
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Diagram 07. ISAM Allocation—Overview 
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Diagram 08. ISAM Allocation—Request Validation and Free-Space Search 
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Diagram 08. (Continued) 


EXTENDED DESCRIPTION 


Determines whether this is a cylinder or absolute-track request. 


Checks for entry from the multivolume-loop module; if multivolume request, 
transfers control to next load (1GG03212); checks validity of duplicate-name 
F1 DSCB if one has been found. 


Verifies that pointer to first DD statement entry is not blank. 


Verifies UCBs for this and preceding request are same for duplicate-name 
requests. 


Calculates the address of legitimate duplicate-name F1 DSCB. 


For the first DD statement, determines if a second DD statement exists for this 
ISAM allocation, checks validity of request type (that is, absolute track, cylin- 
der) and space type (index, prime, overflow). Sets bit in the next TIOT entry 
to indicate request type and space type of this TIOT entry. 


For second or third DD statement, ensures that request type (contiguous 
cylinder, overflow, etc.) is appropriate. 


Sets up work area for this pass: TIOT entry pointer, primary quantity re- 
quested, directory quantity, absolute track address, UCB pointer. 


Sets XCTL ID for transfer to 1G G03212. 


Checks for four available records (FO DSCBs) on the VTOC. 
Sets up channel program to read F5 DSCBs. 
Sets up the F5 DSCB in virtual storage to search for available extents. 


For absolute-track requests: 


Ensures that quantity requested is on cylinder boundaries. 

Finds the extent that contains the specified tracks. 

Unless the last F5 extent has been reached, determines whether the last 
F5 extent will fill the request. 

When the extent containing the specified track is found, determines 
whether the space is available. 

Converts XXYYZ of F5 extent to RTA1/RTA2 and builds a one-entry 
extent table. 

If there is more than one F5 DSCB on the VTOC, reads in next F5. 


For contiguous requests in cylinders, finds smallest F5 extent on the volume 
that fills the request. 


For non-contiguous (no-option-specified) requests in cylinders, finds the 
smallest extent that fills the request or builds and sorts by RTA a five-entry 
list of the largest extents encountered that are insufficient to fill the request. 


Selects the extents (from two to all five) that are needed from the list just 
built to fill the request. Enters the extents selected in the extent table. 
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Diagram 09. ISAM Allocation—F1, F2, F3 DSCB Updating 
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Diagram 09. (Continued) 
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EXTENDED DESCRIPTION 


Relocates channel program for reading and writing F1, F2, and F3 OSCBs for 
this and subsequent loads. 


Determines whether F1 DSCB already exists; if so, transfers control to 
1GG03214. 


Builds all but extent fields of F1 OSCB. 
For second or third OD statement case, updates volume sequence number. 
Puts volume serial number in F1 DSCB. 


Tests for an embedded-index request and if one is specified, transfer control 
to 1GG03215. 


Fills in extents in F1 OSCB, builds an F3 and fills in its extents if required. 
Tests whether an F2 DSCB is needed, and, if so, builds it; chains F1 to F2 
DSCB. 

Finds an FO DSCB (hole) for new F1, F2, or F3 DSCB. Sets up channel pro- 
gram for writing F1, F2, and F3 OSCBs to VTOC. 

Checks for enqueuing on VTOC with a set-must-complete, and if required, 
does so. 

Links to resident conversion routine to convert RTA1/RTA2 of extent table 
to CCHHCCHH for F1 and F3 DSCBs. 


Relocates channel program for updating F5 DSCBs. Sets XCTL ID for 
transfer to 1GG03216. 


When this routine receives control, there will be an F1 OSCB in virtual 
storage from the previous pass. Determines whether an F3 needs to be built 
and if not, adds extents to the F1 until maximum (3) is reached or until the 
extent table entries are all processed. 


Writes F1 to the VTOC. : 


If no F3 exists, builds F3 OSCB extents until extent table entries are 
exhausted. 


When all extents are filled, writes F3 to VTOC. 


{f there is an F2 DSCB on the volume, reads it in, updates the pointer to the 
F3, and writes it back to the VTOC. 
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F3BUILD 


DONE 
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MODULE 
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EXTENDED DESCRIPTION 


If there is already an F3 DSCB on the VTOC for this data set, reads in F2 to 
find address of F3. 

Finds the first available extent in the F3, adds an extent to the F3 for each 
extent table entry. 


Writes the F3 to the VTOC. Updates the number of extents in the F1 DSCB. 


4 Does a set-must-complete enqueue on the VTOC if required; links to 10S 
to read and write from the VTOC. 


Sets up channel program for updating the F5s. Sets XCTL ID for transfer to 
1GG03216. 


Branches to resident conversion routine (IECPCNVT) to convert RTA1/ 
RTA2 of extent table to CCHHCCHH format for F1 and F3 DSCBs. 


Converts cylinder requests to tracks. 

Finds the middle of the prime area requested using extent table entries. 
Determines how much space from the middle of the next extent table entry 
is needed for the index. 

Splits extent table entry into prime and index areas. 

Puts number of index extents into the F1 OSCB; converts index entries for 
the F1 and F3 DSCBs from RTA1/RTA2 to CCHHCCHH. 

Converts prime area entries for F1 and F3 DSCBs from RTA1/RTA2 
format to CCHHCCHH. When F1 DSCB extents are exhausted, builds an 
F3 to contain the rest of the extent table entries. 


Builds the F2 DSCB; chains F2 to F1. 


3 Branches to the resident conversion routine (IECPCNVT) to convert RTA to 
CCHH. 
Relocates channel program to write F1, F2, F3s to VTOC. 
Enqueues on VTOC (with set-must-complete, if required). 


Relocates channel program for updating the F5 DSCB and sets XCTL ID for 
transfer to |GG032I6. 
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Diagram 10. ISAM Allocation—F5 and F4 Modification and Multivolume Processing 
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Diagram 10. (Continued) 


EXTENDED DESCRIPTION 


Calculates the TTR of the F1 DSCB and stores it in the JFCB. 


Initializes F5 output area; initializes pointers to input and output areas; reads 
in first F5 DSCB. 


Determines when an extent table entry is to be merged into the F5 OSCBs. 


Reads first and additional F5 DSCBs. Resets input pointers and counters. 
Converts extents from CCHHCCHH to RTA1/RTA2 format. 


Merges an extent table entry to add available space to the beginning or 
middle of an existing F5 extent. 


Merges extent table entries that are returning available space to the end of an 
existing F5 extent or adding an extent. 


Searches for a hole (FQ DSCB) in the VTOC where a new F5 DSCB can be 
written. 


Converts the RTA1/RTA2 entries to XXYYZ format, inserts F5 chain 
pointer, completes F5 fields, and writes the F5 DSCB to the VTOC. 


Tests for error condition, and if found, tests DIRF setting; if there was a 
previous interrupt, takes error exit; if there was no previous interrupt, tests 
for permanent I/O error: if found, takes error exit; if not a permanent I/O 
error, forces an F4 to be written to the VTOC, then takes an error exit to 
return to scheduler. 


Resets DIRF indicator, updates the number of FOQs left on VTOC, relocates 

a channel program and writes the F4 to the VTOC. Tests for a multivolume 
request. For multivolume requests, updates UCB counter, checks for comple 
tion of the multivolume allocation. Increments number of tracks just allo- 
cated from total to be allocated and sets up amount to be allocated and 
absolute track (if requested) on the next volume. 

Checks to see if allocation is successful, and if not successful and not the first 
OD statement, sets up a dummy absolute-track request so that no further 
attempt to allocate will be made. 


CONVERT 
DADSMSTR 


DUELOOP 
SAVEID 


ALTEREX 


TOTALL 


WRITEF5 


NOERROR 


MISTAKE 


EXTENDED DESCRIPTION 


Dequeues on this volume and transfers control to 1GG03218 for duplicate- 
name search on multivolume request. 


Checks for successful allocation. Fills a TIOT entry tor the third DD 
statement for multiple DD statement requests. 


lf allocation is completed, restores TIOT to the way it was before entering 
the allocate routine. 

Dequeues on VTOC. 

Frees RPS work area if one has been established. 

Frees allocate work area and returns control to scheduler (calling routine). 


Relocates the channel program for reading in the F4 DSCB and first F5 
DSCB and for searching the VTOC for a duplicate name on the next volume 
to be processed. Updates the UCB pointer in the DEB. Saves pointer to 
TIOT DD entry. 


Links to resident conversion routine to convert VTOC relative track address 
to absolute address (MBBCCHHR). Issuesa RESERVE macro instruction 
to enqueue on the VTOC of next volume. 


Reads in data portion of F4 OSCB and the first F5, searches for a duplicate- 
name F1 onthe VTOC, and reads in the duplicate-name F 1 DSCB, if found. 
Sets/resets then tests DIRF indicator. Qetermines whether a duplicate-name 
F1 DSCB has been found. 


Determines whether the duplicate-name DSCB is valid. Calculates the 
address of the duplicate-name F1 DSCB. 

Saves Ft and F5 addresses and transfers control to the first load of ISAM 
allocate (1GG03211). 


MODULE 


LABEL NAME 


MIXED 1GG03217 
(Cont.) 


ALLOUT 
OUT 


FINAL 
FINAL2 
CONTINUE 


RELOCCP 


ZEROCLR 


EXECUTET 


CHECK 


SAMENAME 


NOTBOS 
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Diagram 11. DOS VTOC Conversion—Overview 
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Diagram 12. DOS VTOC Conversion—Initialization, Non-split Cylinder Data Set Conversion and Termination 
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Diagram 12. (Continued) 


EXTENDED DESCRIPTION 


Relocates channel program to read and zero out F5 and F6 DSCBs. 
Calculates number of DSCBs in the VTOC. 
Reads and zeroes out all existing F5 and F6 DSCBs. 


Tests for F6 DSCBs on the volume. If there are F6s, prepares to zero them 
out. 


Calculates the highest track that can be allocated on the volume (as if no data 
sets existed on the volume). 

Determines if volume is used for initial program loading (IPL) and calculates 
lowest track that could be allocated on the volume (as if no data sets existed 
on the volume). 


Converts the VTOC extent to RTA1/RTA2 format. 


Determines if VTOC begins on the lowest track. If so, it subtracts the VTOC 
extent from the total space on the volume. 

If the VTOC does not begin on the lowest track, this section subtracts the 
VTOC extent from the total space on the volume. 


Reads the first zeroed out F5 DSCB and transfers control to |GGO325P. 


Tests to determine whether every DSCB in the VTOC has been read. If not, 
it reads the next DSCB. 

Tests if an F1, F2, or F3 OSCB has been read. If so, it decrements the num- 
ber of unused DSCBs. 

Tests if an F1 OSCB was read in. If so, it updates the high-water mark. 
Initializes pointers and counter to convert the F1 extent(s) to RTA1/RTA2 
format. 

Tests if an F3 DSCB was read in. If so, initializes pointers and counters to 
convert the F3 extent(s) to RTA1/RTA2 format. 

Converts all non-split-cylinder data set extents to RTA1/RTA2 format and 
enters them in the extent table. 

When the extent table contains five entries, this routine sorts the entires into 
ascending RTA sequence. 


This routine compares each entry in the extent table with the F5 extents, 
When the F5 extent is found that contains the extent table entry, this routine 
subtracts the tracks allocated to the entry from the F5 extent, if this extent 
comes at the beginning or end of the F5 extent or takes all of the extent. 


Subtracts the tracks allocated to the entry from the F5 extent when the extent 
table entry is in the middle of the F5 extent (results in the creation of two 
F5 extents). 


When the first F5 is filled (26 extents completed), this routine sets up param- 
eters and transfers control to |GGQ325R. 


MODULE 


LABEL NAME 


1GG03252 
NOCYL 
READNEXT 


ZEROFE6 


STARTF5 


HIGHTK 


SUBTVTOC 
CONT 


CHECK2 


HOLECNT 
TESTSW. 


FIORF3 


CHECK1 


CHECK3 
CONVERT 


ORDER 


NEWCOMP 


TWOEXTS 


PREPPARM 





EXTENDED DESCRIPTION 


When all five extent table entries have been sorted and subtracted, this 
routine determines whether the F1 or F3 DSCB contains more extents to be 
converted or whether the next DSCB must be read. 


When all the DSCBs have been read, this routine branches to a subroutine that 
sorts and subtracts any remaining entries in the extent table and writes the 

F5 to the VIOC. If there are split-cylinder data sets on the volume, it transfers 
control to 1GG0325Q. Otherwise it transfers control to 1GG0325T. 


Compares each entry in the extent table with the extents of the current F5. 


Moves all of the extents in the current F5 forward to wipe out an extent that 
was totally allocated. Determines if there are chained F5 DSCBs. 


Zeroes out the last extent in an F5 or zeroes out the last F5 in the chain. 


Modifies an F5 extent when the allocated extent begins at the beginning of 
the F5 extent. 


Writes the modified F5 to the VTOC and rereads the current F5. 


Reads next F5 in the chain and moves an extent from the beginning of this F5 
to the end of the previous F5. Writes out the previous F5. 

Determines if there are more entries to be subtracted. If not, it reads the first 
F5 and transfers control back to |GG0325W (if split-cylinder extents were 
subtracted) or to 1G G0325P. 

Determines if the allocated extent is within the F5 extent. If not, it points 
to the next F5 extent or reads in the next F5 in the chain. 

Modifies an F5 extent when the extent table entry ends at the same place as 
the F5 extent (that is, their RTA2s are equal). Writes the F5. 

Modifies an F5 extent when the extent table entry falls in the middle of the 
F5 extent. Writes the F5. Reads next F5 in chain and moves the last extent 
from the previous F5 to the beginning of the next F5. 

Creates a new F5 and moves the last extent of a previous F5 into it. Writes 
the new F5 and decrements the number of unused DSCBs. 


Reads the first F5. 
Converts each F5 extent from RTA1/RTA2 to XXYYZ format. 


Inserts the F5 indicator bytes and the F5 identification byte. Writes the F5 
and reads the next F5 in the chain. 


When all the F5s have been read, converted, and written back, this section 
turns off the DOS bit in the F4, turns on the “converted” bit, and writes the 
F4 to the VTOC. It sets completion code in R8 and transfers control to the 
calling module (1GG0325A or IGG0553F). 


MODULE 
NAME 


RETURNPT 1GG0325P 


(Cont.) 


FINISHS 


BEGNCOMP 
WIPEOQUT 


NEXTCOMP 
REPLACE 


WRITENOW 
MERGERTN 


UPDATR 


MORECK 
REPLACE2 


EXPANDCK 


FINXPAND 


1GG0325T 
CONVNEXT 


MOVEMORE 


TURNOFF 
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Diagram 13. DOS VTOC Conversion—Split-Cylinder Data Sets 
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Diagram 13. (Continued) 


EXTENDED DESCRIPTION 


Finds the first unused DSCB in the VTOC and initializes the F6 pointer in the 
F4. 


Tests to determine whether all DSCBs in the VTOC have been read. If not, 
reads the next DSCB. 


Determines whether an F1 or F3 OSCB has been read. If so, it initializes a 
pointer and a counter to be used in testing for split-cylinder extents. 


Tests if the next extent is a split-cylinder extent. 

Converts a split-cylinder extent fram CCHH/CCHH to RTA1/RTA2 format. 

If the RTA1/RTA2 was the first split-cylinder extent, it builds the first F6. 

If the RTA1/RTA2 was not the first split-cylinder extent, this section transfers 
control to 1|GG0325U. 


When all OSCBs have been read and tested for split-cylinder data set extents, 
this section writes out the F6 and transfers control to |GGO325W. 


Compares the RTA1/RTA2 just converted to the F6 extent. If it lies within 
the F6 extent, it transfers control to |GGO325V to check for F6 overlapping. 
If the split-cylinder extent does not lie within the F6 extent, this section 
updates pointers and counters to compare it with the next F6 extent or reads 
in the next F6 in the chain. 

Creates a new F6 with the split-cylinder extent as the first entry. Chains the 
new F6 to the previous F6 and writes the old and new F6 DSCBs. 


Rereads the first F6 and transfers control back to |GG0325Q. 
Creates a new F6 extent in the current F6 DSCB if the split-cylinder extent 


lies between two F6 extents. If this new F6 extent overlaps the F6 follawing 
it, control is transferred to IGGO325V. 


Moves all F6 extents one extent to the right and writes the F6 to the VTQC. 
If the F6 is chained, this section reads in the next F6 and continues to move 
each F6 extent to the right. 


If the split-cylinder extent lies totally within an existing F6 extent, this sec- 
tion increments the data set count by one and writes the F6 to the VTOQC. 


BUILDF6 


READNEXT 


TESTF1 


TESTNEXT 
CONVERT 
CONT 
XCTL325U 


XCTL325W 


COMPARE 


NOLAP 


NEWF6 


RDISTF6 
NEWENTRY 


MOVE 
LASTF6CK 


NEWDSCNT 


EXTENDED DESCRIPTION 


Tests if the newly created F6 extents end before the next F6 extent begins. 
It reads in the next F6 if the new F6 extent is the last extent in the current 
F6. 

If the new F6 extent did not overlap another F6 extent or after all over- 
lapping F6 extents have been combined into one extent, this section restores 
the original F6 and transfers control back to |GG0325U. 


Combines two F6 extents. 


Moves all extents in the current F6 forward to wipe out the extent that was 
just combined. 


Writes a FO over the last F6, zeroes out the F6 chaining pointer in the previous 
F6, and writes out this F6. 


Tests if the split-cylinder extent ends within the updated F6 extent. 


Reads in next F6 in chain and moves its first extent into the end of the pre- 
vious F6. Writes the previous F6 to VTOC. 


3. Reads the first F5 and the first F6 DSCB. 


Adds an F6 extent to the extent table. 


Initializes pointers and counters and transfers control to |GGO325R to subtract 
the entries in the extent table from the free space in the F5 DSCBs. 


Updates pointers to the next F6 extents to be added to the extent table. 
Reads in the F6 when all the extents from the previous F6 have been added. 
After all F6 extents have been subtracted from the F5 DSCBs, it rereads the 
first FG. 


4 Converts the F6 extents fram RTA1/RTA2/number of data sets to 


RT A/number-of-shared-cylinders/number of data sets format. 

Inserts the FG indicator bytes and the F6 identifier byte. Writes the F6 and 
reads the next F6 in the chain. After all the F6 OSCBs have been converted, 
transfers control to |GGQ325T. 


AGAIN 


RESTORE 


COMBINE 


WIPEQUT 


COMPLAST 


LAST COMP 
MERGERTN 


BUILDTBL 
ADDENTRY 
SUBTRACT 


RETURNPT 


FINISHF6 


MOVE 
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Diagram 14. Extend Overview 
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Diagram 15. Extend—Initialization and Free-Space Search 
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Diagram 15. (Continued) 


EXTENDED DESCRIPTION 


1 Entered (1) from EOV when a data set is to be extended, (2) from CVOL 
when a Catalog is to be extended, or (3) from VSAM when data space is 
to be extended. This routine initializes the 10S interface for reading from 
the VTOC. Relocates a channel program to read the F4 and F1 DSCBs. 


Tests for RPS feature. If present, gets 128-byte RPS work area and copies 
the appendage vector table (AVT) into it. Loads module IGGO19EK and 
enters its address in the AVT. Modifies the DEB in the 0/C/EOV work 
area to point to the RPS AVT. 


Links to resident conversion routine to convert VTOC address from rela- 
tive track address to absolute (CCHHR). Relocates channel program to 
read the F4 DSCB and to search for a duplicate-name F1 DSCB. Getsa 
288-byte work area. Enqueues on the VTOC using a RESERVE macro 
instruction. If extending on the current volume of the data set, the 
CCWs are altered so that no search of the F1 OSCBs for a duplicate name 
is made. The DIRF bit is set/reset and the F4 DSCB is written back to 
the VTOC so that a system failure during this processing would be 
recorded. 


Tests for invalid, duplicate-name F1 DSCB and for a data set allocated by 
DOS. 


Exits to error handling routine (last load of extend) when an invalid 
duplicate-name F1 DSCB or a permanent I/O error is encountered. 


This module is entered when a data set on a DOS volume is to be extended. 
The VTOC must be converted to standard format by the DOS VTOC con- 
version routine before the extension is made. It is also reentered when the 
VTOC conversion is complete. This section of code tests for first or second 
entry; if first entry, a 708-byte work area is obtained, set to all zeros, and 
registers 4, 5, and 11 are saved in the last 12 bytes of the work area, 


The DEB/DCB, IOB, and ECB are built in the DOS VTOC conversion work 
area. The F4 DSCB for the volume is read into the DOS VTOC conversion 
work area and control is transferred to |GG0325Z to convert the VTOC. 


This section of code is entered when this module is entered for the second 
time (after the VTOC has been converted to standard format). Restores 
the extend registers and frees the DOS VTOC conversion work area. Tests 
for errors in conversion processing, and, if there were none, reads the 
modified F4 DSCB into the 0/C/EOV work area, repeats the search for 

a duplicate-name format-1 DSCB, and passes contro! to |GGQ553G. If 

an error has occurred, passes control to |IGGO553E. 


Verifies that there are at least three free VTOC records. 


For current-volume allocations, converts last track used by the data set to 
be extended from relative to absolute address. This track is used as the 
preferred location for the extension. 


Converts primary quantity requests in cylinders to tracks. 
For requests in records, converts to tracks and calculates overhead. 


MODULE 
LABEL NANIE 


NOSUBUCB 


SUBUCB 


SKIPWR 


NOROOM 


BLDDCB 


ERRORTST 


BEGIN 
COMPRTA 


CYLTRKRC 
INRECORD 








tN 


MODULE 
EXTENDED DESCRIPTION LABEL NAME 
If the request specifies rounding to cylinder boundary, this routine ROUNDUP 
increments to next cylinder boundary. 
4 Accounts for user labels, if requested. CLEANUP 


BEGIN 
READF5 
SETUP 


5 Relocates a channel program to read in the first F5 DSCB. 
Links to 10S to read in the first and succeeding F5 DSCBs. 
Converts XXYYZ of F5 extents to RTA and the number of tracks. Rounds 
cylinder requests to cylinder boundaries. Sets up input and output pointers 
and number-of-extents counter. 


Tests for twenty-sixth F5 extent and, if it is the last extent, determines TESTLOC 


whether there is another F5. If there is, it is read in. 
Exits to last load on error conditions. Transfer control to next load on 
successful completion. 


XCTLHERE 


6 Begins the search of the F5 DSCBs for space to fill the request by deter- BEGSURCH 
mining if the F5 extent being examined is the preferred location and if 


enough space is available at that location. 


7 Compares extent just found, which is larger than request, with extent being COMPARE 
held to determine which is closest in size to the request. If the new extent 


is closer in size, it becomes the “‘held’’ extent. 


QTNOTAVL 


8 If no extent has been held, compares extent just found, which is smaller 
than request, with the smallest of the five entries in the pushdown list 
and saves the larger extent. It then arranges the modified pushdown list 
in decreasing size order. 


Q When quantity and preferred track are available, builds a one-entry extent ONEDADSM 
table. 

If an extent has been held (that is, an extent has been found equal to or 
larger than the request), builds a one-entry extent table. 


The extents in the pushdown list are examined to determine if two or 
more of the extents can be used to fill the request. If so, the extents that 
satisfy the request are entered in the extent table. 


Extend Code 


01 — Extend a data set on current volume (EOV request) 
02 — Extend a catalog (catalog management request) 
04 — Extend a data set on a new volume (EOV request) 


FILLIT 


PICKLIST 


| 129(X‘81') — Extend a data set or data space (VSAM request) 
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Diagram 16. Extend—DSCB Updating 
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Modifies F1 DSCB or builds or modifies F3 DSCB 
for extending on current volume 


Chains and writes F3, then F1 DSCB to VTOC 


Merges extent table entries with F5 extents, reads 
in additional F5 DSCBs as required, and writes 


updated F5 DSCBs to VTOC 


Handles errors Co" 


Processes for DIRF 


Writes FO DSCB, if required, to remove F5 DSCB 
Writes updated F4 DSCB back to VTOC 


Frees work areas, determines where contro! is to 
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Diagram 16. (Continued) 


1 


EXTENDED DESCRIPTION 


Clears first 280 bytes of the extend work area, gets pointer to extent table and number of 
extent entries in extent table. 


Reads F1 DSCB to virtual stcrage if extending on current volume. 


Determines whether extents to be added will bring total for data set to more than 16. If so, re- 
turns to caller. via last load. Determines whether extent(s) can be added to the F1 and whether 
an F3 needs to be buiit. 


If an F3 DSCB already exists for this data set, this routine reads it into extend work area. 
For extensions on new volumes, builds a new F1 from the JFCB. 


Converts RTA1/RTA2 from extent table to CCHHCCHH and moves converted extents to the 
F1 or F3 OSCB being built or modified. Accounts for user label track. 


Links to the resident conversion routine to convert the RTA1/RTA2 to CCHHCCHH. 
tf no F3 exists for this data set, this routine searches for a hole (FO DSCB). 


When there is already an F3 on the volume or after a hole has been found, this routine writes 
the F3 to the VTOC. 


Chains F1 DSCB to F3 DSCB if an F3 exists, sets number of extents in the F1. If extending 
on a new volume, this routine does a search of the VTOC for an FO DSCB, over which the new 
F1 can be written. 


Writes the F1 DSCB to the VTOC. Saves F1 address and modifies channel program to read and 
write the F5 and F4 DSCBs. 


Successful completion; puts address of extent table in register 2. Transfers control! to !1GG0553D. 


Error exit for permanent 1/0 errors and for data sets requesting more than 16 extents on a volume. 


Transfers control to |GGO553E. 


Gets F5 input work area address, initializes pointers and counters, and modifies channel program 
to read first F§ DSCB. Reads first F5 DSCB. 


Determines when and where extent table should be merged into the output for the F5 DSCB. 


Merges the extent table entries with the F§ DSCB extents ¢f allocation is made trom the beginning 
or middle of an F5 extent. 


Merges the extent table entries with the F5 extent when the allocation is made from the end of 
the F5 extent or if all of the extent is allocated. ’ 


Converts F5 extents fram RTAI/RTA2 to XXYYZ format and writes the F5 to the VTOC. 
Determines whether there is more than one F5 DSCB on the VTOC. 

Writes the last F5 to VTOC. 

Sets XCTL ID for transter to the routine that modifies the F4 DSCB. 

Finds an FO OSCB over which the new F5 DSCB can be written. 


If more F5 DSCBs have been read from the VTOC than have been written back, this routine 
sets an indicator to cause the next load (F4 DSCB updating routine) to write an FO. 


When the second and subsequent F5 DSCBs are to be read into virtual storage, this routine 
resets input pointers and extent counter, then initiates the read operation. 


Resets DIRF switch and tests DIRF bit in the F4 DSCB. 
Checks for permanent i/0 error passes from previous routines. 


Modifies the channel program and reads the F4 DSCB to virtual storage. Resets the DIRF bit 
in the F4 DSCB. 


Determines whether an FO DSCB needs to be written to the VTOC. /f so, this routine modifies 
the channel program and writes the FO DSCB. 


Determines whether the F4 DSCB has been modified; if so, reads the F4 DSCB. 


Updates the FO DSCB count and the address of the highest extent used for an F1 DSCB in the 
F4 DSCB. Writes the F4 DSCB to the VTOC. 


MODULE 


LABEL NAME 


BEGIN 


READFI 
NVL 


NOTFI 
BUILDF1 
STLOOP 


RTACONVT 
WRTOUTF3 
GOTIDF3 


WRITEFI1 


GOTIDF1 


RETRNEX 
RETURN | 


DADSMSTR 1GG0553D 


DUELOOP 
ALTEREX 


TOTALL 


WRITEFS 
CHECAIN 
WRITEFNL 
XCTLHERE 
CHEXT 
TSTZERO 


READFS 


CHKIOERR IGGO553E 


NOTZERO 
WRITEF4 


START 


CHECKF4 
SKPRESET 





LABEL 


EXTENDED DESCRIPTION 


Dequeues the VTOC, frees the extend work area (if RPS feature is present on device, deletes EXITHERE 
1GGO19EK and frees RPS work area) and determines whether to exit to the catalog, EQV 
or VSAM routine. For EOV and VSAM, loads appropriate return code in register 13. 


return code in register 13. 


For normal return to EQV or VSAM, loads the address of the SVRB into register 15, restores 
the calling routines registers (2 through 12) and transfers control, 


TESTRIN 


When a catalog has been extended, restores catalog routine’s registers 9, 10, and 11, puts UCB CATEXIT 
address in register 11, and OCB address in register 1. If no error has occurred, sets register 0 
to a negative value and transfers control to |GCOOO2H, sets XCTL 1D for return to CVOL 


routine (fGCO002H). 


For error conditions, loads register 15 with an error code and exits via SVC 3. IOERROR 


Return Code 


MODULE 
NAME 





@ To EQV: 
WAV iota se0d ae ane, abe successful secondary allocation on current volume 
Q(A)n wees Sed successful secondary allocation on new volume 
-1(-1) ..... error in secondary allocation on current volume 
@ fewer than three free VTOC records (format-0 DSCBs) 
® quantity not available 
@ too many extents (more than 16) for the data set on this volume 
-4(-4) ........ error in secondary allocation on the new volume 
© duplicate name on the new volume 
@ fewer than three free VTOC records (format-0 DSCBs) 
® quantity not available 
~B8(-8)....... unable to convert DOS VTOC to standard format 
-22(-16) ..... permanent I/O error 


® To Catalog Management (CVOL): 
RO = negative... . successful secondary allocation. Return via XCTL. 
Error returns (via SVC 3) with: 


R15=8.... quantity not available, fewer than three free VTOC records (format-0 


DSCBs), or a duplicate name found on the new volume. 
= 12... permanent I/O error 
= 48 ... unable to convert DOS VTOC to standard format 


® To VSAM 
129(81)...... successful secondary allocation on current volume 
-129(-81) .... error in secondary allocation on new volume 
@ fewer than three free VTOC records (format-0 DSCBs) 
® quantity not available 


@ too many extents (more than 16) far the data space on 


this volume 
~8(-8)....... unable to convert DOS VTOC to standard format 


..... permanent I/O error encountered during secondary allocation 
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Diagram 17. Scratch Overview 







Scratch Parameter List 
Scratch Options 
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t DS Name 


t Volume List 








Note: Additional input 
and output details are 
presented in Diagrams 18 
and 20, respectively 


R15 


Return Code 









Scratch Parameter List 





Entered viaSVC 29 Diagram 18 Diagram 19 Diagram 20 
from scheduler utility 
or probiem program 













Password processing Updates space avail- 


able on volume (F5 
DSCBs) 


Handles errors 
Updates F4 mo 


Processes for SMF 





















Builds table of 
extents to be deleted 


Gets work area 












Builds control blocks 











Verifies volume 
| mounted 


Deletes F1, F2, and 
F3 DSCBs 















All volumes 


Updates shared 
processed ? 


extents (F6 DSCBs) 


ON 










Issues mount message 






LEGEND 
CONTROL FLOW DATA FLOW 


Primary Flow, 
=a Entry Point —> Input/Output 
Indicates VTOC 
ay Secondary Flow CZ Data Modification is the only part 


of the direct- 


access volume 
G) > =p( ) ena =I —» Data Reference used by this 


routine 
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Diagram 18. Scratch—Initialization, Volume Mounting and Volume Verification 













UCB for device on 
which the volume 
that contains data set 
to be scratched is 

(or can be) mounted 





Scratch Parameter List 
Scratch Option 
Indicator 
t Data Set Name 


t Volume List 


Volume List 


+2 +6 +12.4+13 

Device Volume 

Code |Serial Number 

Spare 
Scratch Status Code 

Device Volume 

Code {Serial Number 
Number of entries in the volume 


list, one for each volume on which 
the data set resides 





















CVTILK 


UCB Look-up Table 





SVC 29 - 


















Gets the Scratch work area 


If UCB address passed, verifies that the device is 
available 





If no UCB address passed, finds UCB for the 
volume containing data set to be scratched 


Builds DEB, |1OB, ECB 


Volume mounted? — yes 


Initializes mount message 


Issues mount message and verifies that correct 
volume was mounted 


When volume is mounted, passes F4 DSCB 
address, address of first F5 DSCB, and UCB 
pointer 


If RPS device gets work area and loads. 


R13 
fea 


Scratch Work Area 


DEB/DCB, ECB, IOB, 
Channel Program 


F4 First F5 | UCB 
Address | Address | Address 





RPS appendage ie To DSCB deletion 
routine 


When volume not mounted and no UCB is 
eligible for demounting, sets up to process 


Searches UCBs for matching volume serial 
next volume list entry | 


— No 


. . To Scratch terminati 
All volume list entries processed? — Yes Dae ch termination 





No UCB eligible for 
demounting but 
additional volume 
list entries to process 
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Diagram 18. (Continued) 


EXTENDED DESCRIPTION 


1 Gets 688-byte work area. Checks for request from caller in supervisor state; 
if not, branches to resident address validation routine (IEAVOLOO) to verify 
that the volume list has the same protection key as the TCB. 


When caller passes a UCB pointer in register 0, branches to a subroutine that 
verifies that the volume on the device is eligible for demounting and that the 
device is on-line. If a sub-UCB pointer was passed, calculates the address of 
the main UCB. 


When no UCB pointer is passed or if the UCB passed in register 0 is not 
eligible for demounting, branches to a subroutine that searches the UCBs for 
the UCB with a volume serial number that matches the current volume list 
entry; when the matching volume serial number is found, branches to a 
subroutine that verifies that the device represented is on-line and eligible 
for demounting. 

Verifies that a UCB found in the UCB table search or a UCB passed by the 
calling routine is on-line and that its volume is eligible for demounting. 
Searches the UCBs (via the UCB lookup table) for a UCB with a volume 
serial number that matches the current volume list entry. 

Saves the UCB pointer that has been verified; sets up the XCTL parameter 
list in the extended save area of the scratch SVRB and transfers control to 
IGGO290E. 

When there are no entries in the volume list or when the validity check of 
the volume list address fails, control is passed to |GGO290D to clean up 
and exit. 


Builds a DEB, ECB, and 10B with the information required by 10S to read 
to and write from the VTOC for the volume from which the data set is to 
be deleted. Tests for a valid (not zero) volume serial number and if none is 
indicated, sets register 14 (branch register) to zero and passes control to 
1GGO290E (Cont.) 


Searches the UCBs for a UCB with a volume serial number that matches the 
volume serial number of the current entry in the volume list. If a matching 
UCB is found and the volume serial number of the UCB matches the volume 
serial number passed, the branch register (register 14) is set to 4 to indicate 
the volume is mounted; the XCTL ID is set to transfer control to |GGO290F. 


if no matching volume serial number can be found in the UCBs for the sys- 
tem, the pointer to the primary UCB is checked to see if a UCB address was 
passed by the cailing routine. If no matching volume serial number can be 
found in the UCBs and no UCB address was passed by the calling routine, the 
branch register is set to zero, to indicate that the next volume in the volume 
list should be processed, and control is passed to 1GGO290F. 


TESTUCB 


FINDUCB 


PRIMUCB 


ERREXIT 


BLDBLKS 


FINDUCB 


ENDADDR 





MODULE 
EXTENDED DESCRIPTION NAME 


6 If no matching UCB was found and a UCB address was passed to scratch, a MOUNT i1GGO290E 


mount message is prepared and register 14 is set to 12 to indicate a mount (Cont.) 
message is to be issued. 


When a volume is to be demounted, determines whether SMF processing is TESTSMF 
requested and if so, issues an SVC 78 (LSPACE) to collect the information 

needed. 

Puts unit name and volume serial number in the mount message to operator, SETMESG 
initializes message buffer for the operator's reply, sets up the channel program 

and transfers control to |GGO290F. 


This routine begins with a branch table based on a code passed from IGGO290E 
If none of the branches are taken (that is, the branch register contains a value 
of 12), the condition at entry is that a data set is to be scratched from a volume 
which is not mounted. This routine branches to a subroutine that issues a 
mount message, reads in the volume label, verifies that it is the correct volume, 
and returns. This routine now converts the address of the F4 DSCB from 
CCHHR to TTR and stores it and the volume serial number in the UCB. 


Issues mount message, tests and processes for TSO, links to 10S to read the 
volume label, and verifies that the correct volume has been mounted, if the 
operator replies “MOUNTING”. If the operator replies ‘SKIP’ to the mount 
message, this routine sets the status code to X‘06' in the volume list. 


When a data set to be scratched is already mounted (the branch register con- MOUNTED 
tains a value of 4), this routine modifies the UCB address in the DEB, then 

updates volume list pointer and counter for next pass. Tests for RPS feature. 

If present, gets 128-byte RPS work area and copies the appendage vector 

table (AVT) into it. Loads module |GGO19EK and enters its address in the 

AVT. Modifies the DEB in the scratch work area to point to the RPS AVT. 


Converts address of the F5 DSCB from TTR to CCHHR for search. Enqueues GETTROFS 
on the VTOC using a RESERVE macro instruction with set-must-complete 
option. Transfers control to |GGO290A. 


When no valid volume serial number has been found in the volume list and no TESTVOL 
UCB pointer has been passed by the calling routine (branch register was set to 

zero), this routine tests to see whether a primary UCB for an on-line device has 

been found; if not, an X’05’ error code is set in the volume list for this entry 

and, if this is last entry on the volume list, transfers control to |GGO290D. If 

this is not last entry, transfers control to 1GGO290E. 





A Scratch option indicator 


41 00 50 00 — override purge date 
4100 40 00 — no override 
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Diagram 19. Scratch—DSCB Deletion and Split-Cylinder DSCB Updating 
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R11 
t ‘Data 


Checks purge date 


Processes for DIRF (Ch. 
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5 Writes FO DSCBs over F1, F2, and F3 DSCBs (Ces 
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Scratch Work Area 


(a> F1, F2, F3, F5 


and F6 DSCBs 


















F4, F1 OSCB 





READPSWD (Open 
Security) 


Reads in F1 

DSCB for data 
set; issues WTOR 
to verify password 


To F5 DSCB 


Scratch Work Area Updating 













(8 )-> F4 DSCB 









DEB/DCB, ECB, I0B, 
Channel Program 


F4 First F5 | UCB 
Address | Address | Address 









F1, F3 OSCBs (Dp Extent Table 






Oy 





ey 


% 


Y 
Wise containing GZ 


DSCB for data set 
to be scratched 


6 Reads in first F5 or F6 DSCB 









wy 






7 Sorts extent table into ascending (D) 
RTA sequence and checks for shared 






extents: Split cylinder extents are now updated 


No shared extents 
F6 DSCBs 


8 Compares shared extents in extent table 
with F6 DSCB extent entries 


9 Updates and writes F6 DSCB 


Reads first F5 DSCB into main storage On i 


To F5 DSCB 
Updating 







Wises containing Yy 


DSCB for data sets 
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Diagram 19. (Continued) 


EXTENDED DESCRIPTION 


This routine is entered from scratch initialization and reentered from 
READPSWD; the calling routine is determined from the contents of register 10. 


(1) If this is the first entry to this module, register 10 will contain a pointer 
to the scratch parameter list 


(2) If reentered from READPSWD: 


00 00 00 00 — Password verified 
10 00 00 00 — 1/0 or password ervor 
20 00 00 00 — No F1 OSCB found 


Tests for an entry from READPSWD. If this is not an entry from the 
READPSWD module, this module relocates a channel program to read into 
main storage the F4 DSCB and F1 OSCB for the data set to be scratched. 


Tests to verify that an F1 has been read in; if no F 1 has been read in, an 

X'01' code (DSCB not found on VTOC) is set in the scratch status code in the 
volume list, and processing is discontinued on that volume (transfers control 
to |GGO290D). 


This routine determines whether the data set has security protection; if pass- 
word has not already been checked, this routine transfers control to the 
READPSWD module of open security {see O/C/EOV Logic). 


When this module is entered from READPSWD and register 10 contains a zero, 
indicating that the password has been successfully checked, this routine re- 
stores registers and addresses used in password processing. 


If the data set is not security-protected, this routine receives control after the 
F1 DSCB has been read in. If the purge date for the data set has not been over- 
ridden {indicator set in scratch parameter list), this routine verifies that the 
purge date is passed. If it is not passed, a code of X’03’ is set in the volume list 
and control is passed to |GGO290D. 


Checks the number of extents to be deleted, and if there are more than 16, 
sets the DOS bit in the DS4VTOCI field, then writes the modified F4 DSCB 
back to the VTOC (this is done so that the next time an allocation is made on 
the volume, the DOS VTOC conversion routine will be executed in order to 
correct the F5 and F6 DOSCBs). 


Sets/resets the DIRF bit and tests for previous premature termination of a 
DADSM function, and if no interrupt has occurred, writes the F4 back to the 
VTOC. Again sets/resets DIRF bit for writing out in |GGO290D. 


If no premature termination has occurred or after the F4 has been written back 
to the VTOC, this routine sets/resets the DIRF bit. Then the channel pro- 
gram is modified to write an FO DSCB over the F1 and read in an F2 and/or an 
F3 if they exist on the VTOC. 


Determines whether there is a DSCB in virtual storage with extents to be 
converted. 


When F3 DSCBs are read in, sets up work area and branches to a subroutine 
that converts the F3 extents to RTA1/RTA2 format. Calls a subroutine that 
branches to the resident conversion routine to convert the F1 extents from 
CCHHR to RTA1/RTA2 and enters them in the extent table. Enters an 
X’FF’ for split-cylinder extents. 


IGG0290A 


EXECUTE 


NEWDSCB 


PASSOKAY 


NAMEOKA 


BLDTAB IGGO299A 


MOVECCW 


SKPWR 


TESTPTR 


MOREXTS 





MODULE 
EXTENDED DESCRIPTION LABEL NAME 










CVTEXTS 






IGGO290A 
(Cont.) 


Links to the resident conversion routine to convert the F1 and F3 extents from 
CCHHR to RTA1/RTA2 format and stores each converted extent in the extent 
table. 














Links to a subroutine that writes an FQ over an F1 or F3 DSCB whose extents ZEROUT 
have previously been converted and entered in the extent table. When the FO is 
written, the channel program then reads in the next DSCB in the chain if there 
is one. If it isan F2, the process is repeated, zeroing the F2 and reading in the 


F3 chained. 


When there are no more F1, F2, or F3 DSCBs in the chain, this routine inserts 
in the CCW the address of the F6 DSCB for split-cylinder data sets or the F5 

DSCB for non-split-cylinder data sets, so that one or the other is read in by the 
channel program that writes the last FO OSCB. 












LASTDSCB 















Modifies a channel program that searches for FO DSCBs and reads or writes F6 | BEGIN 1GG0290B 


DSCBs. If there are no entries in the extent table, an exit to |GGO290D is taken. 





NEWPASS 
TESTCYLS 





7 Sorts the extent table into ascending RTA sequence. 










Tests for shared cylinders and exits to |GGO290D if not present. Sets ups 
pointers and counters to build or modify an F6 DSCB. 









8 Checks each extent entry in the extent table to determine whether it represents | COMPARE 
a shared extent. Searches for the extent in the F6 DSCB. When found, the 
number of data sets sharing the extent is decremented by one. If the number of 
data sets reaches zero, the XXYYZ for this extent is converted to RTA1/RTA2 


and moved to the extent table. 


When an entry in the extent table is encountered that does not share cylinders, 
this routine increments the extent table pointers and counter. 














NOTSPLIT 









Q When data sets other than the one being scratched are still using the extent cur- | MOVEEXT 
rently being examined, this routine moves the extent (with a decremented num- 


ber of data sets) to the output area to be written back to the VTOC. 


When all the F6 DSCB extents have been compared with the split-cylinder 
extent in the extent table, and when this F6 is chained to another F6, this 
routine reads in the next F6 in the chain. 


Determines whether there are still extent locations in the F6 being built and, if 
not, whether any entries have been made in the F6 DSCB being built in virtual 
storage. If no entries have been made, FO DSCB is written over the last F6 in 
the VTOC. 


When extent entries have been made in an F6 output DSCB, this routine deter- 
mines whether a chaining pointer needs to be put in the F6 before it is written 
out. A pointer is not needed if (1) there is only one entry left in the extent 
table and it is for a split-cylinder extent, and (2) there is only one extent left in 
the input F6 DSCB that has a data set count of one and is contained in the single 
extent in the extent table. When any one of the above conditions is not met, a 
pointer is added to the F6 and the F6 is written back to the VTOC. 


When there are no unprocessed entries in the extent table, this routine reads into} ENDUPD2 
virtual storage the first FS DSCB on the VTOC and sets up XCTL ID to transfer 
control to |GGO290C. 














CHECKIN 














CHECKOUT 














DADSOUT1 
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Diagram 20. Scratch—Format-5 and Format-4 DSCB Updating 
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| 3@)> Error in processing this volume? — = 


Writes updated F4 DSCB to VTOC 











4 Dequeues VTOC 





5 Processes for SMF, if required 
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; next volume 
SVC3 
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Diagram 20. (Continued) 


EXTENDED DESCRIPTION 


Checks to see that there is an entry in the extent table; if not, transfers control 
to 1|GGO290D. Sets up F5 chaining pointers in input and output F5 work 
areas. Calls a subroutine that links to the resident conversion routine to con- 
vert the XXYYZ of the first F5 to RTA1/RTA2. 

Converts XXYYZ of F5 extents to RTAI/RTAZ2. Sets up extent counters and 
pointers, 

Compares the RTA1/RTA2 of the extent table entries with the RTA1/RTA2 
of the F5 DSCB to determine where to merge the extent table entries. 

This section determines when an F5 DSCB needs to be written to the VTOC 
and when a new F§5 needs to be read in. 

Madifies a channel program and links to [OS to read in the second and subse- 


quent F5 DSCBs, then calls a subroutine to convert the F5 extents from 
XXYYZ to RTA1/RTAZ. 


Determines whether two F5 output extents are contiguous and if so, combines 
them into a single extent. 

Converts the F5 output extents from RTA1/RTA2 to XXYYZ, modifies the 
channel program to write the F5 to the VTOC, and branches to a subroutine 
that links to |OS to write the F5 to the VTOC. 

When a new F5 DSCB has been built and an FO must be found to write it over, 
this routine branches to a subroutine that searches for an FO on the VTOC. 


If a VTOC is enqueued, a test is made to determine whether errors have been 
encountered while processing this volume; if no errors have been encountered, 
the number of FQ DSCBs (holes) on the VTOC is updated and the F4 DSCB is 
written back to the VTOC. 


Dequeues VTOC. Tests for password error and if found, enters code in the 
Scratch status code byte in the volume list and sets ERCODE to X ‘08’. 


When the scratch processing is successful, this Section tests for SMF requests 
and builds and writes a type-1 7 SMF record (see OS/VS SMF, for a de- 
scription of the type-7 record). 


Determines whether all entries in the volume list have been processed. If not, 
sets XCTL ID to transfer control to 1|GGO290E to continue processing. 


Frees scratch work area (and RPS work area, if present), sets return cade in 
register 15, and issues an SVC 3. 


CVTORTAO 


MERGE1 


OUTPUT 1 


DADSMIN 


COLLAPSE 


DADSMOUT 


FINDHOLE 


1GG0290D 


TESTEXT 


TESTSMF 


TESTLAST 


EXIT 





A | Return Code 


0 
4 





Successful scratch. 

No volumes containing any part of the data set were mounted, nor did 
register contain the address of a unit that was available for mounting 
a volume of the data set to be scratched. 

An unusual condition was encountered on one or more volumes. 
Invalid volume list (This return code is not accompanied by the 
setting of a status code). 


B Scratch Status Code 


0 


bh 


The DSCB for the data set has been deleted from the VTOC on the 
volume pointed to. 

The VTOC of this volume does not contain the DSCB to be 
deleted. 

The macro instruction failed when the correct password was not 
supplied by the console operator or TSO terminal operator in the 
two attempts allowed, or the user tried to scratch a VS AMdata 
space. 

The DSCB was not deleted because either the OVRD option was 
not specified or the retention cycle had not expired. 

A permanent |/O error was found when processing this volume. 
It could not be verified that this volume was mounted nor was 
there a unit available for mounting the volume. 

The operator was unable to mount this volume. 
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Diagram 21. Release Overview 
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DATA FLOW 


c——"> Input/Output jt, 


Indicates VTOC 
Ui» OataModification is the only part 
of the direct- 
~ access volume 
——-—-— Data Reference used by this 
routine 


Connector 
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Diagram 22. Release—F1 and F3 DSCB Updating 






















DSCB for the Data to 
be Released 


JFCB for Data Set to 
be Released 







DEB/DCB, ECB, |OB 
and Channel Program 


Volume containing 
data set from which 
extents are to be 
released 





Entered via XCTL 





SO 


t User’s DCB 
O/C/EOV Work Area 
Data Portion of the F1 | 













esac cscs 


R13 






Gets and initializes release work area 


\\Y 


t( 


Checks and processes for RPS devices 
Enqueues the VTOC and reads F4 DSCB 


Processes for DIRF 


Locates extent containing the last track written 
to the data set, if in the F1 DSCB 


Converts released F1 extent(s) and enters them 





O/C/EOV Work Area 







Data Portion of 
F1 DSCB 


{PAULL ELLA 
4 
in the extent table . 


Removes the released extent from the F1 DSCB sya 
Reads in the format 3 DSCB, if there is one Q 


Locates the extent containing last track written 
to the data set, if in the F3 DSCB 


yu @ 
Converts released F3 extent(s) and enters them in w 


the extent table 


R 


11 


Removes the released extent from the F3 DSCB 


Bo 
i 


Release Work Area 


Writes an FO DSCB over the F3 DSCB, if ik 


of its extents have been released First F5 DSCB 


F4 DSCB 


(ASS 
Extent Table 
(c}-> 


Writes F3 back to VTOC if extents remain 
Updates TCTIOT, if SMF information is required 


Write F1 back to VTOC 


Wy, 
Sorts extent table into ascending RTA sequence (© Fama 23 


Reads in first F5 DSCB ae 


Updating 
Routines 


F3 DSCB 
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Diagram 22. (Continued) 


EXTENDED DESCRIPTION 


Entered from the reposition 1/0 module of checkpoint/rastart or from a close 
function of 0/C/EOV, this routine gets a work area for the release routines. 
Branches to a subroutine that locates this task’s first SVRB and saves the calling 
routines registers in the SVRB’s extended save area; initializes a channel program 


and picks up the F4 (VTOC) OSCB address from the UCB. Enqueues the VTQC 


usinga RESERVE macro instruction with the set-must-complete option. 


Branches to a subroutine to read in the F4 OSCB and then determines that there 


is at least one FO DSCB (hole) on the VTOC in case a new FS DSCB must be 
added in subsequent processing. 

Finds and returns a pointer to the extended save area of first SVRB for this 
task. Finds and returns a pointer to the extended save area of first SVRB for 
this task. If entered from close, tests for the RPS feature. If present, gets 
128-byte RPS work area and copies the appendage vector table (AVT) into it. 
Loads module IGGO19EK and enters its address in the AVT. Modifies the DEB 
in the Close work area to point to the RPS AVT. 


This section sets/resets and tests the DIRF indicator, and if no previous inter- 
rupt has occurred, writes the F4 to the VTOC with the DIRF bit set. 

Checks the number of extents indicated in the F1 DSCB in the 0/C/EOV 
work area, and if not zero, determines the request type used to allocate the 
space originally (cylinder, average record, or track request) and branches 
accordingly. 

Determines whether the jast track written to the data set to be released was on 
a cylinder boundary, and if not, rounds the extent to the next cylinder 
boundary. 

Determines whether the extent to be released is in the F1 or F3 OSCB and 
branches accordingly. 


Locates the extent containing the last track written when it is in an F 4? DSCB, 
When found, the request type (cylinder or rounded record) is determined. 


Determines whether last track written is the last track of the extent. If not the 
last track, this routine inserts the new end of the extent (last track actually 
used), and links to a subroutine that converts the CCHH to RTA1/RTA2 and 
enters it in the extent table. 


MODULE 
NAME 


BEGINA 


FINOSVRB 


SETVTOC 


GETFOAD 


ROUNDCYL 


SAVEFMT3 


FIRUTINE 


CYLREQ 


EXTENDED DESCRIPTION 


When the last track written is the last track of an extent in an F1 DSCB, this 
routine determines whether there is an F3 DSCB. If there is no F3 OSCB and 
the extent containing the last track written is not the last extent of the data 
set, this routine branches to a subroutine that calls the resident conversion 
routine to convert the CCHHCCHH of any subsequent extents to RTA1/RTA2 
format. These extents are entered in the extent table. 


Checks to see if there is an F3 for this data set, and if so, modifies the channel 
program and reads in the F3 DSCB. 


Locates the extent containing the last track written when that last track 
written is in the F3 DSCB. 


When the F3 extent containing the address of the last track written is 
located, this routine links to a subroutine that converts the portion of the 
extent that is to be released and any subsequent extents in the F3 DSCB from 
CCHHCCHH to RTA1/RTA2 format and enters them in the extent table. 


Calls the resident conversion routine to convert the F3 extents from CCHH 
to RTA1/RTA2. Enters the converted extents in the extent table. 


When all extents are released from an F3 DSCB, this section modifies the 
channel program and links to a subroutine that writes an FO DSCB over the 
released F3 DSCB. 


Updates the F1 DSCB with the number of extents remaining in the volume 
for the data set. Tests for SMF and if present, makes the required entries 
in TCTIOT. 


Writes back the F1 DSCB to the VTOC. If no space is being released, transfers 
control to |GGO20P3. 


Sorts extent table into ascending RTA sequence. 
Relocates channel program for reading and writing F5 DSCBS. 
Links to a subroutine to read in first F5 DSCB. 


LABEL 


CHECKLST 1GGO20P1 


(Cont.) 


CHECKF3 


BEGINA 


LSTRACK 


CVTORTA 


WRITEZRO 


UPDATEF1 


BEGINA 1GG0O20D0 


NEWPASS 
RELOCATE 
RDOSCB 
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Diagram 23. Release—F5 and F4 DSCB Updating 


From Release 
F1 and F3 


Updating 


Release Work Area 1 


First F5 DSCB 
F4 DSCB Q 


Error Pass 
Code 








Initializes for F5 DSCB updating 








Merges extent table entries into F5 DSCB 







ee 
LE 


Unused portions of 
data set have been 
released 


Writes updated F5 DSCB to the VTOC 






Reads in additional F5 DSCBs 


Searches for FO DSCB when a new F5 DSCB 
is created 


Writes in FO DSCB over an F5 DSCB when all 
extents have been deleted 


R1 


Handles errors ———————————————————— 


Return Code 
Processes for DIRF “ R13 


Writes updated F4 DSCB to the VTOC 

Frees the release work area, dequeues VTOC, TET 

and returns to caller 
XCTL alist 






O/C/EOV Work Area (IECDSECT) 


Data portion of 
F1 DSCB (Updated) 






DEB/DCB, !OB, 
Channel Program 
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Diagram 23. (Continued) 


EXTENDED DESCRIPTION 


Sets up F5 chain pointers, extent counters, and clears output area. 
Merges extent table entries with the F5 DSCBs read in. 

Creates a single extent for each set of contiguous extents. 
Determines when to write an FO or an F5 DSCB. 


Converts the RTA1/RTA2 extents to XXYYZ, then links to a subroutine that 
writes the F5 DSCBs to the VTOC. 


Modifies the channel program and links to a subroutine that reads in an F5 
DSCB, then a second subroutine that converts the F5 extents from XXYYZ 
to RTA1/RTAZ., 


Converts the F5 extents from XXYYZ to ATA1/RTA2 format. 


Determines when it is necessary to find the address of an FQ DSCB, over 
which a new F5 DSCB is to be written. 


Tests for error entries and if a permanent 1/0 error has occurred, no F4 DSCB 
is written. 


If there was a change in the number of FO DSCBs (holes) on the VTOC during 
release processing, the hole count is updated. 


MODULE 
NAME 


BEGUN 
MERGE1 
COLLAPSE 
OUTPUT! 
DADSMOUT 


DADSMIN 


VTORTAO 
FINDHOLE 


1GGO20P3 1GGO20P3 


NOERROR 





EXTENDED DESCRIPTION 


The DIRF bit is set/reset and tested, if a previous interrupt has occurred, the 
F4 DSCB is not written back to the VTOC. 


Sets up channel program, then writes the F4 DSCB. 


Frees release work area (frees RPS work area and deletes (IGGOI9EK if 
RPS feature is present on device). 


Dequeues VTOC and returns to caller. 


Return Code 


O — No errors detected 
2 — Unable to find extent in F1 DSCB 
4 — Unable to find extent in F3 DSCB 


1GGO20P3 
(Cont.) 


TESTDIRF 


WRTF4 
NOWRT 


CONTINUE 





8 — Unable to find match for key when attempting to write back F1 DSCB 


16 — Permanent I/O error 
32 — No space in VTOC 
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Diagram 24. Rename 











Volume list 


Device} Volume Serial 
Code | Number 






Entered via 







| 











t Rename SVC 30 1 Gets work area 
Parameter es _ 
List (A> 2 Verifies UCB passed eligible for demount 
Status 
—or- Code 
Rename Parameter List 3 Finds UCB with matching volume serial number lpses | Notenaset | 
C100 20 00 Code | Number 
+ Old DS Name 4 Builds control blocks for 10S |B | 





+t New DS Name 
t Volume List 


R15 


[| 


Completion 
Code 


Searches UCBs for matching volume serial number 
Volume mounted? — Yes 





5 Saves SMF dismount information 












Volume List Issues mount message 


+2 +6 +12 
Device} Volume Serial 
Code | Number 


Rename Status 
Code 


Device] Volume Serial 
Code | Number 


Number of volume 


Verifies volume mounted 
Converts and stores F4 address in UCB 
6 Sets up for processing the next volume list entry 
CG) 7 Searches VTOC for duplicate-name F1 DSCB 
8 Reads F4 and F1 DSCB to virtual storage 


READPSWD 
(Open Security) 





Renamed F1 DSCB on 









Password protection? — Yes 
Registers passed to READPSWD 


















list entries a — 
Password P Reads F1 DSCB: 
snus WTOR 
RO & R5 R11 
Old Data Completion Code: 
a 
tUCB O — Successful completion 









if no UCB pointer is passed, 
RO must contain zeros (> 9 Changes old name to new name in F1 DSCB 


Writes F1 back to vroc(ey” 
UCB Lookup Table 10 More volumes to rename? — Yes 


SMF processing required? — No es‘) 
| 11 Gathers and writes Type-18 record for SMF 


4 — No volumes containing any part 
of the data set were mounted, nor 
did register O contain the address 
of a unit that was available for 
mounting a volume of the data set 
to be renamed 


8 — An unusual condition was encoun- 
tered on one or more volumes 


12 — Invalid volume list (this return 
code is not accompanied by the 
setting of a status code) 


> Frees work areas; loads completion code 


c c c 
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L8 
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Diagram 24. (Continued) 


EXTENDED DESCRIPTION 


1 Enables interrupts and gets 496-byte work area. Checks for request from 
caller in supervisor state; if not, branches to resident address validation 
routine (IEAVOLOO) to verify that the volume list has the same protection 
key as the TCB. 


When a UCB pointer is passed, branches to a subroutine that verifies that the 
volume on the device represented by this UCB can be demounted and that the 
device is on-line. 


When no UCB pointer is passed or if the UCB passed in register 0 is not eligible 
for demounting, branches to a subroutine that searches the UCBs for the UCB 
with a volume serial number that matches the current volume list entry; when 
the matching volume serial number is found, branches to a subroutine that 
verifies that the device represented is on-line and eligible for demounting. 


Searches the UCBs (via the UCB lookup table) for a UCB with a volume serial 
number that matches the current volume list entry. 


Verifies that a UCB found in the UCB table search or a UCB passed by the 
calling routine is on-line and that its volume is eligible for demounting. 


Saves the UCB pointer that has been verified. 
When there are no entries in the volume list or when the validity check of 


the volume list address fails, Joads return code of 8 in register 15, frees 
work area, and returns control via SVC 3. 


Completes DEB/DCB, and |0B with the information required by IOS to read 
the, volume label. Branches to a subroutine to determine whether the current 
entry in the volume list is mounted. 

Searches the UCBs for a UCB with a volume serial number that matches the 
volume serial number of the current entry in the volume list. 


When a volume is demounted and SMF information is required, this section 
issues an SVC 78 (LSPACE). 

Sets up mount message and issues a WTQOR macro instruction. When a TSO 
task is renaming a data set, special message processing is required. 

Waits for operator to reply “MOUNTING” or “SKIP”. If reply is “SKIP”, 
sets rename status code to X‘06', increments to next volume in volume list, 
and sets completion code to 8. 

When volume has been mounted, this routine reads in the volume label, verifies 
the volume serial number, converts the VTOC (F4 DSCB) address from 
MBBCCHHR to TTRO format, sets the mounting indicator in the UCB, and 
moves the TTROQ to the UCB. 

Sets rename status code in volume list to X‘05‘ and the completion code to 8, 


When processing is complete and no SMF information is required, frees rename 
work area, loads the completion code in register 15 and issues an SVC 3 to re- 
turn control. 


When the volume containing the data set to be renamed is mounted, this 
section increments pointers and counters for processing the volume list entry 
and passes control to |GG03001 via XCTL. 


MODULE 
LABEL NAME 


IGC00030 


USERSUCB 


FINDUNIT 


FINDUCB 
TESTUCB 


PRIMUCB 
EXIT 


BEGIN 


FINDUCB 


LSPACE 


CLEARVOL 


MOUNTO2 


SETIND 


NODEVICE 


MOUNTED 





10 


EXTENDED DESCRIPTION 


Tests for entry from the password processing routine (READPSWD); if not 
entered from READPSWO, the VTOC is enqueued by issuing a RESERVE 
macro instruction. Relocates a channel program that is used to search the 
VTOC for a F1 DSCB with the same name as the new name pointed to by the 
third word of the rename parameter list. Branches to a subroutine that links 
to 10S to perform the duplicate-name search. 


Modifies channel program and branches to a subroutine that reads in the F4 
DSCB and the F1 DSCB of the same name as the old name pointed to by the 
second word of the rename parameter list. Checks DSIDSIND field of F1 
DSCB for password-protection; if the data set is password-protected, the proper 
interface is established and control is passed to the READPSWD module of the 
open security function of 0/C/EOV. 


If password processing is successful or if the data set to be renamed is not 
password-protected, the new data set name is written over the old data set 
name, and the F1 DSCB is written back to the VTOC at its original location. 


Dequeues the VTOC, and if processing is not complete, passes contro! to 
1GG03002. 


When processing is complete, a test is made for the SMF feature; if present and 
data set records are required, control is passed to 1GG03003 to record the 
SMF information. 


When processing is complete and no SMF information is required, frees rename 
work area, loads the completion code in register 15 and issues an SVC 3 to re- 
turn control. 


Gets additional virtual storage if needed; builds type-18 SMF record: time, 
job tog-number, user identification, zero-record indicators, old and new data 
set names, and volume serial number. Issues an SMFWTM macro to write 
the record. 


Frees SMF and rename work areas, as required; loads register 15 with com- 
pletion code and returns via SVC 3. 





B | Rename Status Code 


N= © 





MODULE 
LABEL 
: NAME 


1GG603001 


NAMEQKAY 


PSWD OKAY 


FINISH 


TESTSMF 


LEAVE 


FREECORE 


Tine OSCB for the data set has been renamed in the VTOC on the volume pointed to. 
The VTOC of this volume does not contain the DSCB to be renamed. 
The macro instruction failed when the correct password was not supplied in the two 


attempts allowed, or the user tried to rename a VSAM data space. 


A device for mounting this volume was unavailable., 
The operator was unable to mount this volume. 


Oo oa Ww 


A DSCB containing the new name already exists in the VTOC of this volume. 
A permanent I/O error was found when processing this volume. 
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Diagram 25. Obtain 


R1 


Obtain Parameter List 






t DSN or Seek Addr N 


t Volume Serial 
Number 


t Work Area 


Search option: f data set 
name 










Seek option: Tt absolute 
track address 
of DSCB 






Caller’s Work Area 


148-byte Work Area in 


Caller’s Region (partition) 





CVTILK2 


TUCB Lookup Table 





Search or Seek Code A) A | 






Entered via 
SVC 27 








er >1__| 


Completion Code B | 









1 Gets a work area for control blocks and channel 
programs 






Caller’s Work Area (Search option) 










2 Searches UCBs for matching volume serial number 





96-byte Data Portion of 
DSCB 







3 Builds control blocks for |OS 


Modifies channel program for RPS, if present 





5-byte absolute-track 
address of DSCB 
(zeros if VSAM) 





\ 
ta--> 4 Search option specified? — No a 
Search F1 DSCBs for specified DS name 
Specified F1 DSCB found? — Yes os”) 
No 


5 VSAM data space on volume? — 
Issue VSAM LOCATE command yo 
ls DSNAME found? — No 


Format extent information 


QQ 6 Read F1 DSCB (search option) 
——- 7 Read F4 DSCB and specified F1 


DSCB (seek option) 


(3) E> 8 Free obtain work area, load completion 


code ! (ex) 








Caller’s Work Area (Seek option) 










140-byte Key and Data 
Portion of DSCB 










uolneiadg jo poy; 


68 


C 


Diagram 25. (Continued) 


EXTENDED DESCRIPTION LABEL 


Gets a 208-byte work area for the contro! blocks, seek address, and channel 
program for reading the DSCB. Calls a subroutine that links to the resident 
validity checking routine to verify that (1) both the beginning and ending 
address of the work area in the parameter list have the same protection key as 
the TCB for this task and (2) that the work area begins on a fullword boundary. 


Searches the UCBs (using the UCB lookup table) for the UCB with a volume 
serial number that matches the volume serial number passed in the volume 
list. When a match is found, verifies that the device represented by the UCB 
is on-line. 


UCBLOOP 


When the appropriate UCB has been located, this section builds a DEB/DCB, 
108, and ECB, then checks for the RPS feature on the device. If RPS is 
present, the set sector command is inserted and a different CCW address is 
moved to the 10B. The F4 (VTOC) DSCB address is picked up from the UCB, 
converted from TTR to MBBCCHHR, and stored as the seek address. 


PRIMUCB 


Checks the parameter list to determine whether the search or seek option has MAINUCB 
been specified. If search was specified, searches the VTQC for the format-1 

DSCB with the specified data set name. If this isa DOS volume, it may be 

necessary to search the complete VTOC, since DOS does not use the last F1 


address (the “high-water mark’’). 


When the search option is specified and no format-1 DSCB is found during NODSCB 
the search of the VTOC, this step checks the DS4AMCAT field of the format-4 
DSCB to determine whether there are VSAM data spaces on the volume. 

If there are, this step issues a VSAM LOCATE command to get the physical 
extents of the named data set from the VSAM catalog. This step then for- 
mats the extent information in the caller’s work area. 


1GC0102G 


When the specified format-1 DSCB has been found, this step reads it in- EXECIO 
to the caller’s work area. : 


MODULE 
NAME 


IGC0002G 


1GCO102G 


1GC0002G 





EXTENDED DESCRIPTION 


When the seek option is specified, this section relocates a channel program to SEEKDSCB 


read in the F4 DSCB for the volume. 


Moves the VTOC extent (DS4VTOCE) to the DEB: verifies that the seek FIX 
address passed is within the VTOC (F4 DSCB) extent. The channel program 
is then modified to read in the DSCB at this seek address. 


If the RPS feature is present, this routine sets up the RPS channel program with EXECIO 
the additional CCW and the set-sector command value, then reads in the F4 
DSCB and the specified DSCB (seek option) or the named DSCB (search option). 


Loads completion code (ERCODE) in register 15, frees the Obtain work area 
and issues an SVC 3 to return to the caller. 


Search or Seek Code 


Search = C1 00 00 00 
Seek =CO 80 00 00 


cE} Completion Code 


0 Successful obtain 

4 ~~ .-The required volume was not mounted. 

8 SEARCH option: The format-1 DSCB was not found in the VTOC of 

the specified volume. 
SEEK option: No valid format-4 DSCB exists on the specified volume. 

12 A permanent 1/O error was found when processing the specified volume. 
16 Invalid work area pointer. 
20 CCHH not within boundaries of VTOC extent (Seek option). 


1GC0002G 
(Cont.) 
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Diagram 26. LSPACE 


t DISPLAY LSPACE 
Message Area 


SMF Code: 
00 — SMF not required 
40 — SMF may be re- 
quired; further 
testing necessary 
80 — SMF required 


*Three low-order bytes will 
be zero if no DISPLAY 
SPACE message is re- 
quired 


tcvT 


i 


TTCB 
R5 


TSVRB 


3 Reads F4 and first F5 DSCBs 






R15 


Completion 
Code 









Validates input 









2 Gets LSPACE work area; builds control blocks 
and channel programs 











4 Accumulates extent, cylinder, and track informa- 
tion from F5 DSCBs 













5 |f SMF information is required. reads volume 
label and builds type-19 record. Writes record. 


Reus cll 
YK F data Yj 
nana 








If “DISPLAY SPACE” message required, builds 
message 










Releases LSPACE work area, loads completion 
code and ‘DISPLAY SPACE” message pointer 








SVC3 DISPLAY SPACE Message Area 


Return to 
Caller 
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Diagram 26. (Continued) 


MODULE 
EXTENDED DESCRIPTION LABEL NAME 


1 Validates SMF indicator; checks for supervisor state, and if not in supervisor 1GC0007H 
state, branches to the resident validity checking routine to verify that the 
beginning and ending addresses of the message area have the same protection 
key as the TCB for this task. 
Determines whether SMF processing is required. BEGINA 
Gets a work area for LSPACE processing and builds a DEB/DCB, IOB, and BEGINC 
ECB in the work area. Checks for an RPS feature on the device; if present, 
builds the set-sector CCW and puts the CCWO address in the |OB. 
Converts TTR of the F4 (VTOC) DSCB to MBBCCHHR. Relocates the channel} GOCVT : 
program to the LSPACE work area and initializes it to read the F4 OSCB and 
the first F5 DSCB. Issues a RESERVE macro instruction to enqueue the 


MODULE 
EXTENDED DESCRIPTION LABEL NAME 


When “DISPLAY SPACE” message is required, links to a routine to unpack INITCVT 1GC0107H 
and convert to decimal the information required, then moves the message to (Cont.) 
the 30-byte message area. 


Dequeues the VTOC, tests for error exits and sets up error messages, if required.| SETDEQ 


Frees the LSPACE work area, loads the completion code in register 15, the FREE 
message location in register 1 and returns to the caller. 





VTOC. Sets up to transfer contro! to |GCO107H. 
When (1) the UCB address passed in register 0 is not for a direct-access device, 


(2) an invalid parameter is passed in the LSPACE parameter list, or (3) the 

UCB represents a device that is not ready, this section sets up the error message, 
frees the work area, loads a completion code in register 15, and returns to the 
caller via SVC 3. 


EN Completion Code and Resultant Message 





Reads the F4 and first F5 DSCB. BEGIN IGCO107H 

Relocates the channel program to read subsequent F5 DSCBs (RPS modifica- SETNXT - 

tions are made for RPS devices). None Successful LSPACE processing 
Totals the cylinders and tracks in the F5 extents; saves the largest extent ADDIN LSPACE-PERMANENT I/O ERROR I/O error while reading DSCBs 
encountered; counts the number of extents. LSPACE-NON-STANDARD OS VOLUME | Last allocation on this volume made 
Checks to determine whether all F5s on VTOC have been read; if not, branches | CHECKOUT under DOS 

to read the next one. LSPACE-INVALID PARAMETER (or) UCB address invalid 

Tests for SMF requirements, and, if required, modifies channel program to read | TESTSMF LSPACE-NOT A DIRECT ACCESS UCB not for direct access device 

the volume label and branches to the routine that reads the label. VOL (or) LSPACE-UCB NOT READY UCB-not-ready bit is on indicating 
Builds type-19 SMF record (see OS/VS System Management Facilities BLDOSMF Gevice not ready 

for a description of the type-19 record). Writes the record. Tests to None Invalid message area address or SMF 
determine whether a “DISPLAY SPACE” message is required. indicator 
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Diagram 27. Protect 







R15 


Completion A 
Code 


N Volume 
e t { 
Veiume | “2ist"’| 2 Add, delete, replace, or list processing of the |] 


mY 
PASSWORDZY 
contents of this list is pre- eg data setZ Jp 
sented in OS/VS Data 


Management for System ; 
Programmers 3 Writes updated F1 DSCB for password data set 


back to VTOC 












Entered 
viaSVC 98 













Protect Parameter List 










1 Gets work area; validates parameter list; issues 
\ an OBTAIN macro to read the F1 DSCB of the 
(A> password data set; builds control block for IOS. 






G 
Y 
Z 





« 











Volume List 


Volume Serial 4 












Volume containing 
protected data set 














a 4 If control password is processed, updates F 1 


DSCB of the protected data set on all volumes of 
the data set. 









l 


Volume Serial , 


For add, delete, or 
replace functions, when 
the data set to be pro- 
tected is not cataloged, 
a list of volume serial 
numbers on which the 
data set resides must 
be provided 


R3 















SSS 


| 










5 Restores registers, frees work areas, and returns 
to caller. 





R4 


[___ 


Current 
TCB 


UCB Look-up 
Table 
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Diagram 27. (Continued) 


EXTENDED DESCRIPTION 


Gets a work area for building |/O supervisor control blocks and reading in the 
F1 DSCB for the password data set. Validates the parameter list pointed to by 
register 1. Validates parameter list entries. 


Determines whether a password data set entry is to be added, replaced, deleted, 
or listed. Verifies that the buffer address (list request) passed has the same 
storage protection key as the current TCB. 


Sets up a parameter list for enqueuing the password data set and issues an ENO 
macro instruction. If an entry is to be added to the password data set, a second 
ENO is issued. 


Determines the record capacity constant of the SYSRES device. Gets a work 
area (subpoo! 251) for use by obtain routine. Issues the OBTAIN macro 
instruction to read in the F1 DSCB for the password data set. Builds control 
blocks and a channel program for subsequent processing. 


A branch table routes requests based on the contents of register 10, which were 
established in the previous routine. 


This section links to a routine that builds the protection mode indicator byte, 
then links to a second subroutine that builds the balance of the 80-byte data 
area, 


Modifies channel program and links to a subroutine that searches the password 
data set for the 44-byte name specified in the parameter list. When the data 
set name is found, this routine links to a routine that issues an EXCP to search 
for the 44-byte data set name plus the 8-byte password. 

When a data set name is being replaced, this section links to a subroutine that 
searches the password data set; the search is to verify that the new name is not 
already in the password data set. 


Entered when a password record is being deleted, this routine links to a sub- 
routine that searches for the record to be deleted. 


Entered when a record is to be listed, this routine links to a subroutine that 
searches for the specified record. The 80 bytes including the counter, protection 
mode indicator, and optional, 77-byte data field are read into the buffer 
provided by the requestor. 


When a new record is to be added to the end of the password data set, this 
routine sets up the |OB seek field of the last block written to track. If there 

is no room to write another block to the track, this routine obtains the next 
track address. 

Using the input parameter list, this routine creates the protection mode byte 
for the password being added or replaced. For control passwords, an indicator 
is set to indicate F1 DSCB updating. 


Creates the 80-byte data field for a password data set record. 


Searches password data set and writes new records or replaces records in the 
password data set. 


Error handling routine; loads register 11 with error return code. 


Exit routine; dequeues the enqueued password data set, sets up XCTL ID, and 
issues SVC 7 (XCTL) to transfer control to |GCO209H. 


Tests for error entries and sets up enqueue and dequeue lists. 


MODULE 
NAME 


INITCOR 1GCOQO09H 
CHKOO1 


CHKEND 


TABREC 


ENTO10 1GCO109H 


COM050 


ADDO010 


COM005 


COM010 


LST010 


ENBLKO10 


BLDMDO010 


BLDENO10 
SRCHO20 


ERET040 
RETO10 


1GC0209H 









EXTENDED DESCRIPTION 











UPDATE 1GCO209H 


(Cont.) 


if the F1 DSCB for the password data set is to be updated, enqueues 
the SYSRES VTOC, updates the DS1LSTAR field (address of last 
block written), and links to a subroutine that writes the DSCB back 
to the VTOC. The SYSRES VTOC is then dequeued. 

When a control password is being changed, this routine first checks 
for avolume list provided by the user. If no volume list was provided, 
a LOCATE macro instruction is issued to create a volume list. 
Searches the UCBs for the UCB of a mounted volume with a volume 
serial number that matches the volume serial number in the volume 
list. 

When the UCB has been Jocated, interrupts are disabled while the 
user count is incremented, then re-enabled. 

issues an OBTAIN macro to read in the data portion (last 96 bytes) 
of the F1 DSCB of the data set being protected. 


Determines whether the protection status bits of the F1 DSCB are to 
be modified. If no change of protection status is required, an exit is 
taken, via BR 14. 

Entered when the protection status bits must be modified, enqueues 
the VTOC, reissues the OBTAIN macro instruction, modifies the status 
bits, writes the F 1 DSCB back to the VTOC, then dequeues the VTOC. 


When each F 1 DSCB is written back to its VTOC, a check is made for 
additional entries in the volume list. Another pass through this module 
is made for each volume list entry. When all volume list entries have 
been processed, the work areas are freed, registers 0, 1, and 15 are 
restored, the return address of the calling routine is loaded in register 
14, and contro! is returned to the caller via a branch on register 14. 










SETFLAG 







LOOKUP 







MATCHID 






GETDSCB 










FLAGDS 











NQ 










STATUSOK 











Completion Code 


The updating of the password data set was successfully completed. 

The password of the data set name was already in the password data set. 
The password of the data set name was not in the password data set. 

A control password is required or the one supplied is incorrect. 

The supplied parameter list was incomplete or incorrect. 

There was an [/O error in the password data set. 

The password data set was full. 

The validity check of the buffer address failed. 

The LOCATE macro failed. LOCATE’s return code is in register 1 and the 
number of indexes searched is in register 0. 

The OBTAIN macro failed. OBTAIN’s return code is in register 1. 

The DSCB could not be updated. 

The password data set does not exist. 

Tape data set can not be protected. 

Data set in use. 


“For these return codes, the password data set has been updated, but the DSCB has not 
been flagged to indicate the protected status of the data set. 
**For this return code, a message is written to the console indicating that the password 
datz set is full. 
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PROGRAM ORGANIZATION 


The DADSM routines are type-4 supervisor call (SVC) routines. In VS1 systems, they 
are loaded from SYS1.SVCLIB and executed in the pageable supervisor transient area in 
loads no larger than 2048 bytes (one page). 


In VS2 systems, the DADSM routines (and all other SVCs) are moved from 
SYS1.SVCLIB to SYS1.LPALIB at system generation. At system initialization, the 
DADSM routines are made resident in virtual storage in 4096-byte pages of the link pack 
area (LPA), which is pageable. 


The DADSM routines transfer control among themselves via the XCTL macro 
instruction and return control to the calling routine using an SVC 3 (EXIT), except for 
release and extend, which return control via XCTL. The Directory indicates how each of 
the DADSM routines receives control. 


Module descriptions and module-level flowcharts for each DADSM function follow. 
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START 






IGC0003B 
















A eenOVE Cy Pett scheduler; if bit 0 of RO = 1, entry was from a utility). R1-= 
Gets work area and builds DEB. fullword location containing a pointer to a UCB. If an ISAM 
lf RPS feature is present, gets RPS data set is to be allocated, R5 to a DD statement entry in 
work area and loads RPS SIO appen- the TIOT. 
dage (IGGOISEK). . Output: — R4#0, R7-UCB, R11—-JFCB or partial DSCB 
See ‘Support for Rotational Posi- 
tion Sensing (RPS)” References: GETMAIN, FREEMAIN, XCTL , LOAD 
From DOS 
VTOC conversion 
1GG0325A 
oe -- Duplicate F1 DSCB Input: R11 -~JFCB or partial DSCB, R7 UCB, R4 = O if 
2 entered from 1|GG0325Z (DOS VTOC conversion), 
This module enqueues the VTOC, reads R13-— Allocate work area. 
in the F4 and first F5 DSCBs, then Output: R13 -—Allocate work area (F4 and first F5 DSCBs and their 
searches the F1 DSCBs for data set absolute track addresses, duplicate-name F1 DSCB, if found, 
of the same name as the data set DEB/DCB, !OB, ECB), R11 = JFCB or partial DSCB. To 
being allocated. Checks for DOS 1GG03211 -- DEB/DCB, IOB, ECB, F4 DSCB and address 
volumes and ISAM data sets. are relocated in the work area (see ISAM Allocate work area). 
Processes for DIRF. References: IECPCNVT, EXCP, WAIT, RESERVE, XCTL 
ISAM data set VTO 
to be allocated Non-ISAM DOS format 
data set or 
VSAM data To 1GG0325Z 
space to be to convert VTOC 
To allocated to standard format 
1GG03212 
1GG0325B : 
Input: R13 -Non-ISAM Allocate work area (F4, first F5, 
Non-ISAM Allocate -- Request DEB/DCB, !OB, ECB, channel program), R11 -—-JFCB 
Conversion and Type Determination or DSCB. 
This module converts requests in Output: Registers same as at input, except R10 = the space requested 
cylinders and average records in tracks. SPARE field in work area contains number of data 
‘(blocks) to tracks, calculates the sets sharing a split-cylinder extent. A modified channel pro- 
TTRLL field and directory size gram will reside in the work area. 
for BPAM data sets, determines the Reference: XCTL 
type of request and transfers con- 
trol accordingly. 
Note: All modules, except |GCO003B XCTL to 1GGO325H 





Absolute- Regular and Zero-Quantity 
Track Split-Cylinder Requests (w/o 
Request Requests user labels) 
To 1GG0325C To 1GG0325D To 1GG0325E 


Entered via SVC 32 (from 
scheduler, utilities, or VSAM) 








when error conditions are encountered; see “Allocate 
Return Codes and Messages’ for error codes and re- 
sultant messages. 





User- Suballocation 
label Requests 
Requests 

To IGG0325K To 1GG0325S 


Figure 7. (Part 1 of 4) Allocate Initialization and Non-ISAM Allocation 


96 OS/VS DADSM Logic 




















From 1GG0325B 





1GGO325K 


Non-ISAM Allocate -- User-label 
Extent Allocation 


This module allocates a user-label 
extent for all requests except ab- 
solute-track and suballocation re- 
quests. It allocates a single track 
from the smallest extent in the 

first format-5 DSCB (when process- 
ing split-cylinder data sets, a sep- 
arate track is allocated for each data 


set requesting a separate track). From 


1GG0325B 
Zero-quantity, 
user-label requests 


1GG0325D 


Non-ISAM Allocate -- Search Free 
Space (Normal, Cylinder and 
Track Requests) 


Finds free space in the F5 DSCB 
according to the space type requested 
{ALX, MXIG, CONTIG, or no- 
option-specified) and makes entries 
in the extent table for the data set. 














Non-split- Split-cylinder request 
cylinder 
request 
To |GGO325L 
or |GGO325J 
From 
1GGO325C 


|GGO0325B 


Non-!ISAM Allocate -- : 
Absolute Track Processing 


Searches free space for extent con- 
taining the absolute track requested; 
determines whether quantity is 
available at that location; handles 
user-label requests (the first track 

of the extent at the absolute track 
requested is the user-label extent). 











Zero-quantity 
requests w/o 
user-labels 


1GGO325E 


Non-ISAM Allocate -- Building 
Format 1 and F3 DSCBs, Non- 
Split-Cylinder Data Sets 
Builds F1 and F3 DSCBs using 
extent table and JFCB or partial 
DSCB. Writes these control 
blocks to the VTOC. Updates the 
F4 DSCB fields. 









From |GG0325B 









All other 
request types 


Zero quantity requests 
and errors 


To 1|GG0325H To 1GG0325G 


Input: 


Output: 


Reference: 


R13 —non-ISAM Allocate work area (data portion of F4 
DSCB and first F5 DSCB and their addresses, DEB/DCB, 
1OB, ECB, channel program to read F5 DSCBs), 

R11 - JFCB or partial F1 OSCB. 


R13 ™ work area (contents of work area unchanged, except 
user-label extent(s) will be added to the extent table and re- 
moved from the F5 DSCB). 


XCTL 





input: 


Output: 


References: 


R13 —non-ISAM Allocate work area (contents seme as 
1GGO0325K input), R10 = space requested in tracks, and 
R11 -=JFCB or partial F1 OSCB. 

Work area now contains extent table entires for allocated 
extents; first FS DSCB may not be in virtual storage. 


EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


Same as input to |IGGO325K; in addition R10 = space 
requested in tracks. 


R13 -non-ISAM Allocate work area (first F5 may have 
been overwritten with subsequent F5s, extent table contains 
a single entry; otherwise contents of work area unchanged). 


EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


Note: 


Same as input to 1|GGO325K;; in addition, the work area will 
contain the extents allocated to this request in the extent table, 
if it is not a zero-quantity request; the channel program will 
have been modified to write F1 and F3 DSCBs. 


F1 and F3 DSCBs to the VTOC. Registers and work areas are 
as at input. If directories were requested, the absolute track 
address (CCHH) of the first F1 extent will be saved in the 
work area. To |GGO325H for zero-quantity requests -- 

R8 = O: for error conditions, R8 = error code (non-zero). 


1ECPCNVT, EXCP, WAIT, ENQ (set-must-complete), XCTL 


All modules transfer control to 1|GGO325H when error 
conditions are encountered; see ‘’Allocate Return Codes 
and Messages” in the Diagnostic Aids section for error 
codes and resultant messages. 


Figure 7. (Part 2 of 4) Allocate Initialization and Non-ISAM Allocation 
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Is 
the device 
on which the data 
set resides a 
drum 


YES 


Non-ISAM Allocate -- Split-Cylinder 
Processing, Non-drum DASD 














Builds an F1 DSCB for each data set 
sharing the cylinders, from the chain 
of JECBs that define the data sets 
and from the extent table. Each F1 
is written to the VTOC. 


Non-ISAM Allocate -- F6 DSCB 
Creation and Updating (split- 
cylinder data sets) 

















Builds F6 DSCB to record split- 
cylinder data set extents, or, if F6 
already exists, adds an extent to the 
F6 to represent the cylinders being 
allocated. 


\GGO325J 


Non-ISAM Allocate -- Split-Cylinder 
Processing, Drum Device 





Builds and writes an F1 DSCB for 
each data set sharing the extent, 
which is allocated as contiguous 
tracks with each data set receiving 
one or more contiguous tracks. No 
F6 DSCB is required. 


To 1GG0325G 


Input: 


Output: 


References: 


R13——non-ISAM Allocate work area {(F4 DSCB and its 
address, address of first F5 DSCB, DEB/DCB, IOB, ECB, 
channel program to search for FQ DSCBs and write F1 
DSCBs, extent table, which contains an extent describing 
the cylinder extent and the user-label extents, if requested, 
SPARE field contains number of data sets sharing the 
cylinders), R11—=first JFCB in the chain. 


F1 DSCBs written to VTOC. Registers and data areas are as 
at input. 


EXCP, WAIT, ENO (set-must-complete), XCTL 


arr pt PSC 


Input: 


Output: 


References: 


Registers and work area contents are unchanged from 
1GGO325L input. 


New or updated F6 DSCB written to VTOC. Register and 
work area contents same as at input. 


EXCP, WAIT, XCTL 


SS SS 


Input: 
Output: 


References: 


Note: 


Same as input to |GGO325L. 


F1 DSCBs will have been written to the VTOC, one for each 
data set sharing the contiguous track extent. 


EXCP, WAIT, ENQ (set-must-complete), XCTL 


All modules transfer control to |GGO325H when error 
conditions are encountered; see ’‘Allocate Return Codes 
and Messages’’ in the Diagnostic Aids section for error 
codes and resultant messages. 


Figure 7. (Part 3 of 4) Allocate Initialization and Non-ISAM Allocation 
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Entered from 
1GG0325B 


|GGO325S Input: 


Non-!ISAM Allocate -- Suballocation, 
Find F1 DSCB, Build Extents 


Finds the F1 OSCB for the 
predefined data set from which the 
suballocation is to be taken, 

builds the extent for the new F 1 
DSCB, and modifies the extent of 
the old F1 DSCB. 


Output: 








References: 












1GGO325M 


Non-!SAM Allocate -- Suballocation 
Complete F1 DSCBs, Update F4 
DSCB 


Completes the F1 DSCB for both 
the old and new data sets, then 
updates the F4 DSCB. If all of 
the extent in the old data set is 
suballocated to the new data set, 
the new F1 DSCB is written over 
the old F1 on the VTOC. 


Input: 
Output: 





References: 


1GG0325G 


Input: 


Non-ISAM Allocate -- F5 DSCB From 
Updating 


1GGO325E, 
1GGO325F, 

Subtracts the extents in the extent 1GG0325J Output: 
table from the extents in the F5 

OSCBs. Writes modified F5 Aofeceaces: 
DSCBs back to the VTOC. : 








R13-=non-ISAM allocate work area (data portion of F4 
DSCB and its address, DEB/DCB, |OB, ECB and channel 
program), R10 = space requested for new data set in tracks, 
R11-—JFCB for the old data set. 


Registers are as in input; the work area now contains the data 
portion of the old F1 DSCB and the calculated extents for 
both the new and old F1 DSCBs. 


lIECPCNVT, IECPRLTV, EXCP, WAIT, XCTL 


ss; sieemmmmminiasnenenninieinaemmmnsamemniaseisineseammmmmtneimenibimesemiiabeaemel 


Same as output from 1GGO325S 


F1 OSCBs and updated F4 DSCB written to VTOC. If the 
suballocation was successful, the three low-order bytes are set 
to zero. If an error was encountered, the three low-order 

bytes of R8 contain the error code. The high-order byte of R8 
is set to X’FF’, in either case, to indicate suballocation process- 
ing has been requested. The work area will contain the F4 
DSCB and the 1/O supervisor control blocks. 


EXCP, WAIT, ENQ (set-must-complete), XCTL 


Heres ee eee e anes eee rere errr ees reese eee ee crrrrc cer re eer  e 


R13 -—Non-ISAM allocate work area (data portion of F4 
DSCB, absolute address of F4 and first F5 DSCB, extent table, 
DEB/DCB, |OB, ECB6, channel program to search for FO 
DSCBs and read and write F5 DSCBs), R11-=— JFCB. 


New and/or updated F5 DSCBs to VTOC. Registers and work 
areas are as at input. 


EXCP, WAIT, XCTL 





Normal -- From 
IGGO325E, IGGO325F, 
1IGG0325J, |GGO325M, 
1IGGO0325G 
Error -- From |GG0O325A, 
1IGG0325B, |GG0325C, 
IGG0325D, |GG0325E, 
IGG0325F, I|GGO0325G, 
1GG0325H, |GG0325J, 
1GGO325K, 1GGO325L, 
IGG0325M, |GG0325S, 
1GG0325H IGGO0325T 


Non-ISAM Allocate -- F4 DSCB Input: 
Updating and Error Handling 


Handles error conditions from 
previous modules. Processes for 
DIRF:; writes FO record, if an F5 
DSCB is to be removed from the 
VTOC; writes updated F4 DSCB 
to VTOC:; and, if directories are 
requested, sets up CVOL interface 
and frees work areas. References: 


No Directory Directories 
requested 


Output: 


Return to 


Caller To IGGOCLF2 
(CVOL) 


R13 -—Non-ISAM allocate work area (updated F4 DSCB, 
control blocks and channel program to write to the VTOC). 

lf entered from 1GG0325M (suballocate), R8 = X‘FF’ in 
high-order byte and completion code in three low-order bytes. 
if entered from any other module, high-order byte of R8 = 0. 
If an FO is to be written, SWITCH field in work area is set to 
X’80’. 

F4 and FO DSCBs written to VTOC. If directories requested, 
RO - R4 contain CVOL interface. R15 = completion code. 


EXCP, WAIT, DEQ, DELETE, FREEMAIN, EXIT, XCTL 


Figure 7. (Part 4 of 4) Allocate Initialization and Non-ISAM Allocation 
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Entered from 

IGGO325A (initial entry) 
or |GG03218 (multivolume 
data set allocation) 



















































































Input: R11—~JFCB, R13-—— ISAM allocate work area (SAVEREGB —= 
1IGGO3211 DD statement entry in TIOT for this request, F4 DSCB, first 
ISAM Allocate -- Validity F5 DSCB, F1 DSCB if a duplicate-name F1 DSCB was found, 
Checking DEB/DCB, |O8, ECB, channel program). 
Validates ISAM allocation requests Output: Registers and work area as at input; in addition, the work area 
by verifying (1) duplicate-name now contains a pointer to the UCB for this pass, the amount 
requests are the second or third of of space requested, and the absolute track address, if an 
a series, (2) requests are in cylinders absolute-track request is being processed. 
or cylinder equivalents in tracks, (3) Reference: XCTL 
requests in a series are all in same 
unit (e.g., cylinders), (4) only 
one of each space type in series 
(prime, index, overflow), and (5) 
that there are 4 FO DSCBs on 
the VTOC. 
iGG0O3212 Input: Same as Output from 1GGO3211 
ISAM Allocate -- Free Space Output: Registers as at input. One or more extent table entries will 
(F5 DSCB) Search now be contained in the work area (DADSMTBL) and the 
Searches the F5 DSCBs for available first FS DSCB may or may not be in the work area. 
space according to the following References: EXCP, WAIT, XCTL 
options: (1) an absolute track 
address on a cylinder boundary or 
(2) a number of contiguous or 
non-contiguous cylinders. 
1GG03213 
ISAM Allocate -- Building F1, F2 Input: Same as output from 1GG03212 
and F3 DSCBs Output: To 1GGQ3216 -- work area is as at input. An F1 DSCB (and F2 
Checks for an F1 DSCB in work and F3 DSCBs, as required) will have been written to the VTOC. 
area (valid duplicate-name request), To 1GG03214 -- the valid duplicate-name F 1 DSCB will be 
and if present, transfers control to contained in the work area, which js as at input. 
1GGO3214. Builds F1 DSCB, except To 1GGO321I5 -- A new F1 DSCB, except for extents, will 
for extents, then checks for have been built in the work area. 
embedded-index request; if References: EXCP, WAIT, ENQ (set-must-complete), XCTL 
present, transfers control to 
1GG03215. If not present, com- 
pletes F1, and builds F2 and F3 
OSCBs, as required. 
Embedded 
Index 
Request 
Valid Duplicate- 
name F1 DSCB 
To 1GG03215 To 1GG03216 
1GG03214 
ISAM Allocate -- Valid Duplicate- Input: R13—— ISAM allocate work area (valid duplicate-name F1 
name F1 DSCB to be Modified DSCB, extent table with one or more entries, F4 DSCB, DEB/ 
Modifies existing F1 DSCB and Boe ORL ECR, channel progam): 
builds an F3 DSCB if more than 3 Output: Updated F1 DSCB and an F3 DSCB if one is needed. Work 
extents are needed. No F2 will be area contents as at entry. 
built, because it will have been built References: EXCP, WAIT, ENQ (set-must-complete), XCTL 
ina previous pass. The F2 and F3 
OSCBs are chained as required 
and written to the VTOC. 
Note: All modules transfer control to 1|GGO3217 on error condi- 


To IGG03216 


Figure 8. (Part 1 of 2) ISAM Allocation 
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tions; see ‘Allocate Return Codes and Messages”’ for the 
error codes issued by each module and the resultant mes- 
sages. 











From IGG03213 


Ss 


IGGO03215 


ISAM Allocate -- Embedded 
Index Processing 


Completes extents of F1 DSCB 
(and builds F3 DSCB if one is 
needed). Builds F2 DSCB and 
chains it to the F1 (and the F3 

to it if there is an F3). Writes the 
DSCBs to the VTOC and modifies 
the channel program to read 

F5 DSCBs. 


IGGO3216 


ISAM Allocate -- Update F5 
(Free Space) DSCBs 


Searches sequentially through all 
F5 DSCBs for the extents that 
contain the extent table entries. 


Determines whether the extent 
table entry is to be removed from 
the beginning, middle, or end 

of the F5 extent. Builds new 

F5 DSCBs, as required. 





1GGO3217 


ISAM Allocate -- F4 DSCB Updating 
and Error Handling 


Checks for error entries, processes 
for DIRF, checks for multivolume 
requests and, if present, transfers 
control to |GGO2218 if more 
volumes are to be processed. If 
allocation is complete, frees work 
areas, DEQs VTOC, restores 
TIOT, loads completion code and 
returns to scheduler. 


Allocation 
complete 


; More volumes 
or error exit 


to process; 
multivolume 
data set allocation 


Return to 
Scheduler 












1GG03218 


ISAM Allocate -- Multivolume 
Data Set Initialization 








Performs many of the same functions 
of allocate initialization routine: 
reads F4 and first F5 DSCBs, searches 
VTOC for duplicate-name F1 DSCB, 
and validates the F1, if found. 
Processes for DIRF. 


To 1GGO3211 


8-2 
B1 


From 
1GG03213 
or 
1GG03214 


Figure 8. (Part 2 of 2) ISAM Allocation 


Input: 


Output: 


References: 


Input: 


Output: 


References: 


R13—«/SAM allocate work area (new F1 DSCB, except for 
extents, extent table with one or more entries, F4 DSCB, 
DEB/DCB, IOB, ECB, channel program). 


F1 and F2 (and F3 if needed) DSCBs chained and written 
to VTOC. Work area contents unchanged. 


IECPCNVT, EXCP, WAIT, ENQ (set-must-complete), XCTL 


R13——ISAM allocate work area (extent table with one 
or more entries, F4 DSCB, address of first F5 DSCB) 
Updated F5 DSCBs written to VTOC. Work area nowcontains 


only F4 DSCB and I/O Supervisor contro! blocks and channel 
program. 


EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


Error entries (from 1GG03211, 1GGO3212, 1GGO3213, 1|GG03214, 
IGGO3215, 1|GGO3216, 1GGO3218) -- R5 = error code. 

Normal entry (from 1GG03216) -- R5 = 0, R13-—« ISAM allocate 
work area (F4 DSCB, ECB, DEB/DCB, IOB, channel program). 


Updated F4 DSCB written to VTOC. 

To 1GG03218 -- R13 ~— ISAM allocate work area (UCB counter 
field (CTR) contains a count of the number of volumes on which 
the prime area has been allocated). CTR field used to calculate 
the address of UCB for next volume. R10-—=—DD Statement 
entry in TIOT. 

To Scheduler -- R15 = completion code 


EXCP, WAIT, FREEMAIN, DELETE, DEQ, XCTL, EXIT 





Input: 


Output: 


References: 


R10—eDD statement entry in TIOT. R13-— ISAM allocate 
work area (CTR field used to calculate address of UCB for 
this pass, DEB/DCB, 1OB, ECB, channel program). 


R13—«work area (F4 DSCB, first F5 DSCB,F1 DSCB if 
valid duplicate-name DSCB found, DEB/DCB with new UCB 
pointer in DEB, IOB, ECB). 


IECPCNVT, EXCP, WAIT, RESERVE (enqueues VTOC of 
next volume to be processed), XCTL 
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Entered from |GG0325A (Allocate) 
and |GGO553F (Extend) via XCTL 


1GG03252 
Initialization 


Writes FO DSCBs over all F5 and 
F6 DSCBs. Creates new F5 DSCB 
that represents the whole volume, 
less VTOC and IPL records, as 

free space. 








iGGO325P 
Non-split-cylinder Data Set 
Processing 

Subtracts F1 and F3 extents from 
reinitialized F5 DSCB for the non- 
split-cylinder data sets. Merges and 
expands extent entries, writes F5 
to VTOC. 





















Split-cylinder data 
sets to be processed 


To 
a 1GG03250 


From 
split-cylinder 
processing 
(1GGO325W) 


No split-cylinder 
data sets; only 
one F5 DSCB 


onthe VTOC fore than 


one F5 
needed 




















1GGO325R 
F5 DSCB Processing 


Creates second through last F5 
DSCB. Merges and expands extent 
entries, writes F5 to VTOC. 
Entered for multiple F5 DSCBs 
for non-split-cylinder extents and 
for all F5 processing for split- 
cylinder extents. 









Split-cylinder data 
sets 


Non-split-cylinder 
data sets 


To IGGO0325W 


1GGO325P 





IGGO325P, 

1GGO325T IGGO3250, 
DSCB Updating 1GGO325R, 
Converts F5 extents from RTA1/ IGGO325V, 
RTA2 to XXYYZ format. Resets IGGO325W 


"DOS" bit and sets ‘‘converted’’ 
bit in F4 OSCB and writes updated 
F4 to VTOC. Determines caller. 





Return to 
caller 


To 1GG0325A (Allocate) 
or |GGOS553F (Extend) 


Input: R7——UCB, R11——JFCB or partial DSCB, R13-—- allocate 
work area (F4 DSCB, DEB/DCB, ECB, IOB, channel 
program). 

Output: Same as input, except F5 in work area has been reinitialized. 


Channel program and |OB are modified. 
References: EXCP, WAIT, XCTL, IECPRLTV 





R11-— JFCB or partial DSCB, R13-~ DOS VTOC conversion 
work area. When entered from |GG0325Z, work area con- 

tains reinitialized FS DSCB. When entered from |GGO325R, 

R1 = 0 and work area contains last F1 or F3 DSCB read and first 
FS DSCB. 


To 1GGO325R -- R1-— parameter list (number of entries in 
extent table to be subtracted from the F5 DSCB and = to 
first extent to be subtracted); to 1GGO3250 and 5T - no 
extents in extent table, no parameter list, all other registers 
and data areas as at input. 


IECPRLTV, EXCP, WAIT, XCTL 


Input: 


Output: 


References: 





Input: R11 JFCB or partial OSCB, R13 DOS VTOC conversion 
work area (F4 DSCB, last F1 or F3 read in, first F5), 
R1-= parameter list (number of entries in extent table to be 


subtracted from F5s and - to first extent to be subtracted). 
Output: Registers and work areas unchanged, except R1 = 0. 


References: EXCP, WAIT, XCTL 





Normal -- From |GGO325W, 


Error -- From 1GG03252Z, 


Input: R11-— JFCB or partial DSCB, R13 work area (F 4 DSCB). 

Output: Valid F5 and updated F4 written to VTOC. R4 =0 to 
indicate reentry to |GGO325A. 

References: EXCP, WAIT, XCTL 

Note: All OOS VTOC conversion modules transfer control to 


1GG0325T when error conditions (permanent |/O error, 
‘*x’08’, or DOS VTOC cannot be converted, X‘48’) are 
encountered. 


Figure 9. (Part 1 of 2) DOS VTOC Conversion Routine 
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To 


From 1GG0325P 
or 1GGO0325U 








1GG0325Q 


Find Split-cylinder Data Set 
Extents 




















Reads F1 and F3 DSCBs from 
VTOC and locates split-cylinder 
extents. Builds first split-cylinder 
extent in F6 DSCB. If first F6 
extent has already been built, 
transfers control to |GGO325U 
to build more F6 contents or 
increment user count. 










All F6 DSCBs More F6 extents 
built to process 








1GGO325U 


Build F6 DSCBs 


Enters F6 extent or increments 
data set count if extent has 
already been entered. Writes 

F6 DSCB to the VTOC when 

all 26 extents have been entered. 






F6 extent 
overlaps checked 








IGGO0325V 


Check for F6 Extent Overlap 


Checks each F6 extent to deter- 
mine whether it overlaps another 
F6 extent; if so, the extents are 
merged and the data set use-counts 
are added together. 


1GGO325W 
From 







Set Up to Subtract F6 Extents 
from F5; Convert FG DSCB Extents 


Enters F6 extents, five at a time, in 
extent table; transfers control to 
1GGO325R to subtract the extents 
from the F5 DSCBs. Reads next 
F6 as required. When all F6 extents 
have been subtracted, converts F6 
to XXY YZ format and transfers 
control to |GGO325T. Writes out F6 
DSCB in final format 











Subtract F6 
Extents from F5 


Split-cylinder 
processing complete 


To 
1GGO0325R 1GGO325T 






1GG0325R 


Input: 


Output: 


References: 





R11-=— JFCB or partial OSCB, R13--—DOS VTOC work 
area. From 1GG0325P, work area contains F4 DSCB with 
valid DS4HPCHR field. From |GGO325U, work area contains 
F4 and first F6 DSCBs; R1 = 0 to indicate reentry from 
1GG0325U. 


To IGG0325U -- R11—eJFCB or partial OSCB, R13-—DOS 
VTOC conversion work area (F4 DSCB, last F1 or F3 DSCB 
read, first F6 OSCB). R6 -= current shared-cylinder entry in 
extent table. R6 -efirst F6 extent. 

To IGGO325W -- R11——JFCB or partial DSCB, R13-——DOS 
VTOC work area (F4 DSCB). 


IECPRLTV, EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


From 1GG03250 R11 ——JFCB or partial DSCB, R13 -~DOS 
VTOC conversion work area (F4 DSCB, last F1 or F3 DSCB 
read in, first F6 OSCB), R6 -~RTA1/RTA2 entry in extent 
table, R8 ——first F6 extent. 

From 1GGO325V -- R13—— work area (F4 DSCB, current 

F6 DSCB), R6-— RTA1/RTAZ2 of data set, R7 = extent 
number being compared, R8-=— current F6 extent, A10 = 
number of extents in last F6, R1 = O to indicate reentry from 
IGGO325V. 


To 1GG03250 -- R13 - work area (F4 and first F6 DSCBs), 
R1 =0 to indicate reentry from IGGO325U. 

To |IGGO325V -- R13-— work area (F4 and first F6 DSCBs), 
R6-— RTA1/RTA2 of data set, R7 = extent number being 
compared, R8—= current F6 extent, R10 = number of extents 
in last F6. 


EXCP, WAIT, XCTL 





input: 


Output: 


References: 


R11——JFCB or partial DSCB, R13-——DOS VTOC conver- 
sion work area (F4 DSCB and F6 DSCB being compared), 
R6 —=RTA1/RTA2 of data set, R7 = number of the extent 
being compared, R8 —=current extent, R10 = number of ex- 
tents in last F6 DSCB. 


Same as input except R1 = 0 to indicate reentry from 
IGGO325V. 


EXCP, WAIT, XCTL 





input: 


Output: 


References: 


Note: 


Figure 9. (Part 2 of 2) DOS VTOC Conversion Routine 


R11——JFCB or partial DSCB, R13—=—DOS VTOC con- 
version work area. 

From 1GG03250 -- work area contains only F4 DSCB. 
From |GGO325R -- first FS DSCB will also be in the work 
area and R1 = O. 


To |GGO325R -- R11—JFCB or partial DSCB, R13——work 
area (extent table entries, F4 DSCB, first F5 DSCB), R1 —=~ 
parameter list (number of extents to be subtracted and —=first 
extent). 

To IGGO325T -- R11—=JFCB or partial DSCB, R13 —= 
work area (F4 DSCB and first F5 DSCB). Format 6 

DSCBs are in final format, FS OSCBs in temporary format. 


EXCP, WAIT, XCTL 


All DOS VTOC conversion modules transfer control to 
1GGO325T when error conditions (permanent |/O error, 
X’OC’, or DOS VTOC cannot be converted, X’48') are 
encountered. 
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Entered from 
End-pf-Valume 


{to extend a data set) r 

or CVOL (to extend | , 
a catalog) or VSAM 

IGGO553A (to extend a data space) 


Data set extensions (secondary 
allocations) are made on the current 















input: R2—= DCB of data set to be extended, R4-— 0/C/EOV 
work area (JFCB of data set to be extended, |/O supervisor 
control blocks, channel program), R5 --~DEB of data set to 
be extended, R10 ——UCB, R13 = entry conditions (Diagram 


volume or On a new volume. 15). 
If device has RPS feature, gets RPS e 
work area and loads SIO appendage Output: R4-— O/C/EOV work area (contents as at input). 


(1GGO19EK) R5—— DEB, R11-=— Extend work area. 


This routine gets a work area; 
enqueues the VTOC; performs a 
duplicate-name DSCB search when 

an extension is made on a new 
volume; and process for DIRF. Checks 
for a VTOC in DOS format: 


VTOC in VTOC in DOS 


standard format é 
format ‘(DOS bit of 


DS4VTOCI set) 


References: IECPCNVT, IECPRLTV, GETMAIN, EXCP, WAIT, 
RESERVE, XCTL, LOAD, MODESET 








1GGO553F 
From |GG0O325T 
Extend -- DOS VTOC Conversion (DOS VTOC Input: From 1GG0553A - same as |GGO553A Output. 
interface Module conversion! From |GGO325T -- R8 = completion code. 
Output: To |GGO325T -- R7 -—UCB, R13——DOS VTOC conversion 
t -byte DOS VTOC conver- : 

ihe pie eh 1/O supervisor work area (F4 DSCB, address of first FS DSCB, DEB/DCB, 
control blocks, reads in F4 DSCB. 10B, ECB, channel program, contents of R4, R5, and R11, 


SPARE field = X’80’ to indicate entry from extend). 
Wh trol turned from 
ees he a cline To IGGO553G -- same as output from |GGO553A. 


code, frees work area. Reads the References: GETMAIN, FREEMAIN, XCTL, EXCP, WAIT 
modified F4 DSCB into the 
O0/C/EOV work area. 


VTOC VTOC to be 
converted converted 





IGG0553G input: R4 ~= O/C/EOV work area (F4 DSCB, address of first F5 
2 DSCB, JFCB, DEB/DCB, IOB, ECB, channel program for 
Extend - Request Conversion reading from and writing to the VTOC), R5 ——DEB, 
Converts requests in cylinders or R11—= Extend work area. 
average records to tracks; calculates Output: R12 = space requested in tracks, R13 = relative track ad- 


last track written to the data set dress of preferred location, R11—— Extend work area, 
when the extension is to be made R4—e work area which is unchanged. 


of the current volume of the data set. References: IECPRLTV, XCTL 





1GG0553B 


Extend -- Free Space 
(F5 DSCB) Search 


Reads in F5 DSCBs and searches mnpur: See |GG0553G Output. 
for an extent or extents that will Output: R4 —=— O/C/EOV work area (same as at input, except that 
fill the request. Checks preferred the extent table will now contain one or more entries), 
location first; if not specified or R11—= Extend work area. 
not available, searches for an extent References: EXCP, WAIT, XCTL 
equal to or greater than request or 
builds 5-entry pushdown list. 
Builds extent table. 
of 
Note: When error conditions are encountered, all extend modules 


transfer contro! to |GGO553E with entry code (or modified 


entry code) in R13. 
To 1GGO553C 


Figure 10. (Part 1 of 2) Extend 
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IGG0553C 


Extend -- F1/F3 Build/Update 





if extension is on anew volume, 
builds F1 (and F3, if required) 
DSCB: if on current volume, 
updates F 1 DSCB (builds or 
updates F3, if required). Writes 
DSCBs to VTOC. 







1GG0553D 


Extend -- Free Space (F5 DSCB) 


Updating 


Subtracts extent table entries from 
F5 DSCBs. Searches the F5 DSCBs 


and removes the allocated extents. 
Writes the updated F5 DSCBs back 
to the VTOC. 





1GGO553E 


Extend -- VTOC (F4) DSCB 
Updating 

Handles DIRF termination 
processing, writes FO DSCB if 

an F5 is to be removed, dequeues 
the VTOC, frees work areas, 
determines where control is to be 
returned, builds CVOL interface, 
if required, and transfers control. 








Error encountered 
processing a 
CVOL request 


SVC3 XCTL 
Return to 
calter 






Figure 10. (Part 2 of 2) Extend 















Input: R4-= O/C/EOV work area (F4 DSCB, JFCB, DEB/DCB, !0B, 
channel program, extent table), R11—— Extend work area. 

Output: New/updated F1 DSCB (and F3, as required). Contents of 
work areas as at input. R2 —-~ extent table, R4 -~O/C/EOV 
work area, R11—— Extend work area. 

References: EXCP, WAIT, XCTL 

input: Register and work areas same as |GGO553C output. 

Output: Updated F5 DSCB(s). R4-=O/C/EOV work area (F4 DSCB: 
a pointer may be set to indicate where an FO DSCEB is to be 
written over an F5 DSCB to remove it from the VTOC). 
R11—— Extend work area. 

References: EXCP, WAIT, XCTL 

input: R4 —= O/C/EOV work area (F4 DSCB and write-FO- 
indicator), R11-—*- Extend work area, R13 = O if an error has 
occurred. 

Output: Updated F4 DSCB written to the VTOC. 
To EOV or VSAM -- restores caller’s registers from SVRB 
extended save area, R13 = return code. 
To CVOL (IGC0002H) -- RO<O, R11—~ UCB, R1—> DCB, 
R13 = completion code, R9 and R10 restored. 

References: EXCP, WAIT, XCTL, DEQ, FREEMAIN, DELETE 

Note: if an error occurs during extend processing of a catalog (CVOL 


request), the completion code is loaded in R15 and an SVC3 is 
issued to return control to the system control program. 
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Entered via SVC 29 from 
START scheduler, utility, catalog 

generation module, or 

problem program. 


1GC00021 


Scratch -- Initialization 


Gets scratch work area, determines 
whether device is available and 
whether a volume can be de- 


mounted or finds UCB for first 
volume list entry. 





From |GGO290D 
1GGO290E or |GGO290F 


Scratch -- Mount Message Building 


Builds |/O supervisor control 
blocks, searches UCBs again (if 
entered by |GGO290D or IGGO290F), 
determines whether a mount mes- 
sage is to be issued, and, if so, 
builds the message. Sets branch 
register for entry to |GGO290F. 












1GGO290F 


Scratch -- Volume Mounting and 
Verification 


Performs a function as indicated by 
contents of R14 at entry. Ifa 


volume is to be mounted, verifies 

that the correct volume is mounted, 
and enqueues VTOC. If RPS feature 

is present, gets RPS work area and 

loads RPS SIO appendage (IGGO19EK), 





J e cannot 
Volum Volume cannot 





mone | oun 
eas volumes processed 
to process 
Volume 
mounted 
To IGGO290D Reenter from 


READPSWD 











IGGO290A 


Scratch -- Password Protection 
Interface, VTOC Search 


Reads in F4 DSCB and F1 DSCB 
for data set to be scratched. For 
password-protected data sets, 
transfers control to READPSWD 
to verify password. Checks purge 
date, unless purge data is overridden. 





To READPSWD 

(O/C/EOV) to verify 

password for 

To 1GGO299A password-protected 
data sets. 


Figure 11. (Part 1 of 2) Scratch 
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Input: 


Output: 


References: 





Input: 
Output: 


References: 


Input: 
Output: 


References: 





Input: 


Output: 


References: 


Note: 


RO-= UCB or = 0, R1-— Scratch parameter list (see Diagram 
18 for contents) 


R13 —=Scratch work area (PRUCBPTR field UCB). 
GETMAIN, XCTL, MODESET 


See 1GCQ0021 output, above. 


R13-— Scratch work area (DEB/DCB, ECB, IOB, channel 
Program to read volume label) 

R8—— current volume list entry, R14 = branch code: 

O - no device available on which to mount the volume 

4 -- volume is mounted 

12 -- mount message to be issued, non-2321 DASD 


XCTL, LSPACE (when a volume is to be demounted and 
SMF information is required) 


See |GGO290E output. 


To IGGO290A -- Issues message to operator if a volume is to be 
mounted. R8—= current volume list entry, R13—= Scratch 
work area (DEB/DCB, IOB, ECB, absolute track address of 

F4 and F5 DSCBs). To |IGGO290E and |GGO2900 -- sets 
scratch status code for current volume in volume list 

entry. 


IECPCNVT, TPUT, WTOR, RESERVE (set-must-complete), 
EXCP, WAIT, XCTL, LOAD 


From |GGO290F -- see |GGO290F output. 

From READPSWD -- R10 = password status code, R13 -=~ 
Scratch work area (OLPLPTR-= Scratch parameter list, 
DEB, DCB, IOB, channel program). 


To READPSWD.-- R4-— password work area, R5—— 10B, 
R10 = X‘03’ in high order byte to identify scratch request, 
R11-— data set name. To |GGO299A - R13-=— Scratch work 
area (DEB/DCB, |0B, ECB, channel program, F1 DSCB, 

F4 DSCB, address of first F5 DSCB). 


EXCP, WAIT, XCTL 


When error conditions are encountered, all scratch modules 
except I|GGO290E, which sets no error indicator, set the 
appropriate error code in the scratch status byte of the 
current volume list entry and transfer control to |GGO290D. 
IGGO290F first checks to see if processing is complete, 

and, if not, transfers control to |GGO290E. 











1\GGO299A 
Scratch -- DSCB Removal 





Removes F 1, F2, and F3 DSCBs 
for data set being scratched, by 
overwriting them with FO DSCBs. 
Lists extents removed in extent 
table. If there are more than 16 
extents to be scratched, sets DOS 
bit so VTOC will be converted to 


standard format at next allocation. 
Processes for DIRF. Reads in first 
F6 DSCB if split-cylinder data set 
is being scratched; if DOS bit is 

set or non-split-cylinder data set 

is being scratched, reads in first 

F5 DSCB. 





iGGO290B 


Scratch -- Format-6 OSCB Up- 
dating, Split-Cylinder Data Sets 


Identifies split-cylinder extents in 
the extent table. Locates each 
split-cylinder extent in the F6 
DSCBs. Decreases the count of 
data sets sharing the extent. If 
count goes to zero, adds the 
extent to the extent table. If 
no split-cylinder extents are 
being scratched, immediately 
transfers control to |GGO290C. 













1GGO290C 


Scratch -- F5 OSCB ( Free 
Space) Updating 

Merges extent table entries with 
F5 DSCB entires. Reads in F5 
DSCBs and extent table entries 
are matched and merged. Up- 


dated F5 DSCBs are written back 
to the VTOC. 





Entered from any 
other scratch module 
when error condition 


1GGO290D encountered. 


Scratch -- F4 (VTOC) DSCB 
Updating 


Tests for error entries from previous 
modules. Writes modified F4 DSCB 
to VTOC. Checks for SMF informa- 
tion requirement; if required, builds 
type-17 record and writes it to SMF 
data set. Determines whether all 
volume list entries have been pro- 
cessed; if so, returns to caller; if 
not, transfers control to |IGGO290E. 


More volumes Processing 
to process complete 





Return to 
Caller 





Figure 11. (Part 2 of 2) Scratch 


Input: 


Output: 


References: 


R13 -™ scratch work area (F4 DSCB, F1 DSCB, address of 
first F5 DSCB, DEB/DCB, IOB, ECB, channel program) 


F1, F2, and F3 DSCBs for data set being scratched will have 
been overwritten with FO DSCBs. R13 -~scratch work area 
(contents as at input, except it now contains extent table 
entries and the first F6 DSCB if a split-cylinder data set is 
being scratched, or the first F5 DSCB if a non-split-cylinder 
data set is being scratched). F4 DSCB will have been written 
a VTOC with DIRF bit set. R8 volume list entry being 
processed. 


lECPRLTV, EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


R13 -—scratch work area (F4 DSCB, first F6 DSCB if split- 
cylinder data sets to be scratched, F5 DSCB if non-split- 
cylinder data set to be scratched, DEB/DCB, IOB, ECB, 
channel program, extent table with split-cylinder extents 
marked with X'FF’.} 


Updated F6 DSCBs written to VTOC. Extent table now 
contains only free extents (split-cylinder extents with the 
other data sets continuing to reside in the extent have been 
removed from extent table. R13 -= scratch work area (F4 
DSCB, extent table, first F5 OSCB, DEB/DCB, IOB, ECB, 
channel program). R8 = volume list entry. 


EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


R13 -—scratch work area (F 4 DSCB, first F5 DSCB, extent 
table, DEB/DCB, iOB, ECB, channel program). 


Updated F5 DSCBs written back to VTOC. Work area now 
contains only F4 DSCB and I/O supervisor control blocks. 
R8 current volume list entry. 


EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


Error condition -- ERCODE field in scratch work area will 
contain an error code and current volume list entry will con- 
tain the scratch status code. 

Normal -- R13 -™ scratch work area (updated F4 DSCB, !/O 
supervisor control blocks). 


Updated F4 DSCB written to VTOC. SMF type 17 record 
written to SMF data set, as required. 

Return to caller -- volume list entries will contain scratch 
Status code, R15 = return code. 

To I|GGO290E -- R8 —next volume list entry to be processed. 


DEO (release-must-complete), EXCP, WAIT, EXIT, GETMAIN, 
FREEMAIN, DELETE, SMFWTM, TIME, XCTL. 
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All 
errors 
except 
1/0 


Equal key 
not found, 
all errors 
detected 

or occurred 


Entered from 


START 


Close and Checkpoint/ 


Restart via XCTL 


1GGO20P1 


Release -- Initialization and F1 
DSCB Updating 


Gets release work area. If RPS de- 


vice and entered from close, sets 
RPS work area and loads RPS SIO 
appendage (IGGO19EK). Initializes 
for Release processing, enqueues 
VTOC, reads in F4 DSCB, pro- 


cesses for DIRF, locates extent 
containing last rack written to the 
data set, if it is in the F1 DSCB, 
enters extent in extent table. Re- 
moves F1 extent(s). 





1GGO20P2 


Release -- F3 DSCB Updating 


Reads in F3 DSCB if there is one. 
Locates extent containing last track 
written to the data set, if it is in 

the F3 DSCB. Releases F3 extents 
following last track written by en- 
tering them in the extent table and 
removing them from the F3 DSCB. 
Makes entry in TCTIOT for SMF, 

if required. 














IGGO20D0 
Release -- Write Back F1 DSCB 


Writes back F 1 DSCB, sorts 
DADSM entries into ascending 
order if space is being released, 
relocates channel programs for 
next load module, reads in first 
FS DSCB. 









IGGO20D1 


Release -- F5 DSCB ( Free 
Space) Updating 


Merges released extents into the 
F5 DSCB\(s). Writes updated 
F5 DSCB(s) to VTOC. 





IGGO20P3 


Release -- F4 (VTOC) DSCB 


Updating and Termination 





Processes for DIRF and writes up- 
dated F4 DSCB to VTOC. Frees 
work areas dequeues VTOC, deter- 
mines calling routine, and returns 
control. 


XCTL 










Return to 
Caller 


Figure 12. Release 


SSS SS 
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Input: 


Output: 


References: 


R2-— DEB of data set to be released, R4-= O/C/EOV work 
area (data portion of F1 DSCB, JFCB of data set to be re- 
leased, DEB/DCB, IOB, ECB, channel program). R10 — UCB 
of data set to be relased. 


R13 -— O/C/EOV work area (F 1 DSCB, DEB/DCB, 1OB, ECB, 
channel program). R11——release work area (F4 DSCB, extent table 
if F1 DSCB extent(s) were released). F4 DSCB will have been 
written to VTOC with DIRF bit set. 


IECPCNVT, IECPRLTV, RESERVE (set-must-complete), EXCP, 
WAIT, GETMAIN, XCTL, LOAD 





Input: 
Output: 


References: 


See |IGGO20P1 output. 


Modified F3 written to VTOC, or if all extents were re- 
leased in the F3 DSCB, an FO DSCB will be written over it. 
TCTIOT will be updated if SMF information has been re- 
quested. Number of extents remaining on the volume for 
this data set will be updated in the F1 DSCB, R11-=— release 
work area (F3 DSCB if there is one, F4 DSCB, extent table). 


{ECPRLTV, EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


See IGGO20P2 output; also R2 contents. If 

R2 contains anything other than a zero or 
negative value, an error (other than |/O error) 
was detected in either 1GGO20P1 or |GGO20P2. 


F1 DSCB written back to VTOC, DADSM 

table sorted in ascending order, first F5 DSCB read in. 
R11-=— release work area (first F5 DSCB, F4 

DSCB, sorted extent table) 

R13-— I/O support work area (updated F1 DSCB) 


EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


R11—=— release work area (F4 DSCB, first F5 DSCB, 
extent table). 


Updated F5 DSCBs to VTOC. 
EXCP, WAIT, XCTL 





Input: 


Output: 


References: 


Note: 


Error -- R2 = error code (permanent |/O error, no space in 
VTOC, equal key not found when trying to write back 

F1 DSCB, or extent not found). Normal -- R11—— release 
work area (updated F4 DSCB), R13—= O/C/EOV work area 
(F1 DSCB, DEB/DCB, IOB, ECB, channel program). 


F4 DSCB written to VTOC. Updated F1 DSCB in O/C/EOV 
work area. The release work area will have been freed, as 
well as the RPS work area, if one existed. 


EXCP, WAIT, FREEMAIN, DELETE, XCTL 


All release modules transfer control to 1GGO20P3 when 
1/O errors are encountered. |GGO20P1 or |GGO20P2 
transfers control to 1|GGO20D0 for all errors except I/O. 
1GGO20P2 also transfers control to 1GGO20D0 for nor- 
mal processing. |GGO20D0 then writes back the F1 DSCB 
in the VTOC and, if an error was detected in |GGO20P1 
or 1|GGO20P2, or if an error occurred in |GGO20D0, 
control is transferred to |GGO20P3. 








i non _ - os 





Entered via 
SVC 30 


Input: R1—= rename parameter list (see Diagram 24 for contents). 
, 1GC00030 RO -~UCB or = 0. 


volume that contains the data set to be renamed or to a UCB 
Gets Rename work area, verifies for a volume that can be demounted). R15= error code, if an 


UCB pointer or finds UCB with error was encountered. 


a volume serial number that References: GETMAIN, FREEMAIN, XCTL, EXIT, MODESET 
matches the volume list entry. 


START 





On error conditions (no volume 

= list entries or volume list fails 
validity check) frees work area 
and returns to caller. 





From 
1GG03002 1GG03001 
Rename -- Volume Mounting and . 
Verification Input: See |GCOQ0030 Output. 

Id iar Output: If a volume is to be demounted, a WTOR macro instruction will 
poe tee : ee 7 alla be issued, and, if SMF information is requested, an LSPACE 
ae i ener eyiates mn macro instruction (SVC 78) will be issued to write an SMF 
bes ntl i Sai aad hehe record type 19 to the SMF data set. R13-~ rename work 
eg et area (DEB/DCB, |OB, ECB, channel program). 

ACORBO oie ee R15 = error code if error was encountered. 
: u 
mounted, issues message to References: WTOR, TPUT, WAIT, FREEMAIN, LSPACE, EXIT, XCTL 


operator, then reads volume label 
and verifies that correct volume 
has been mounted. If all volume 
list entries have been processed 
and no volume can be demount- 
ed, frees work area and returns to 
caller. 





Volume mounted 


Reentered from 
( READPSWD 
; 1GGO3001 Input: R13-= Rename work area (DEB/DCB, 108, ECB, channel 


Rename -- F1 DSCB Updati program). 
Volume From READPSWD .-- R10 = password status code, R13 


cannot be Enqueues the VTOC, searches rename work area (OLD PLPTR -= rename parameter list). 


mounted; VTOC for a duplicate-name F 1 

all volumes} DSCB, reads in F1 DSCB, transfers 
processed control to READPSWD to verify 
password if password-protected 
data set, changes old name to new 
name in F1 DSCB, writes F1 back 
to VTOC. Determine whether 
there are more volumes to process 
and whether SME information is 
required. If no more volumes to 
process, frees work area and re- 
turns to caller. 







Output: To READPSWD -- R4 -=password work area, R5 -—IOB, 
R10 =X’02 00 00 00’ to identify rename request, R11 
old data set name. 
To 1GG03002 (more volumes to process) -- renamed F1 DSCB 
has been written to VTOC. 
To 1|GG03003 (SMF information required) -- R13 -= rename 
work area (OLDPLPTR —™ rename parameter list). 
Return to caller -- R15 = completion code. 


References: RESERVE, FREEMAIN, EXCP, WAIT, DEQ, EXIT, XCTL 
































No SMF Information More volumes 
required; SMF to process 
all volumes required; 


processed all volumes 
processed 


To READPSWD to verify password 







1GG03003 Input: R13—-= rename work area (OLD PLPTR —™rename parameter 


list, which is used to access the old and new data set name and 
volume serial number). 





Rename -- SMF Record Type 
18 Processing 






Output: SMF record type 18 to SMF data set. R15 = rename completion 
code. 


References: GETMAIN, FREEMAIN, EXIT, TIME, SMFWTM 






Builds SMF record containing old 
and new data set names, volume 
serial number, time, etc. Writes 
the record to SMF data set. Frees 
work areas, returns to caller. 









Note: When error conditions are encountered, all rename modules 
return to caller via SVC 3 (EXIT) after setting an error code 
in R15 and freeing work areas. 


Return to 
Caller 






C 


Figure 13. Rename 


eee 
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START 


1GCO002G 


Entered via 

SVC 27 from 
system and 
problem programs 


Se ™ 


Reads a DSCB from the VTOC: 
searches VTOC for a named F1 


Output: 


DSCB or reads key and data field 


located at a given actual device 
address (CCHHR). 





No F1 DSCB 
found; VSAM 
data space on volume 


1GCO0102G 
Obtain -- VSAM Data Set 


Retrieves data set description 
and physical extent informa- 
tion for a VSAM data set from 
the VSAM catalog. Moves the 
extent descriptions to the cal- 
ler’s work area. 


SVC 3 










Return to 
Caller 


Figure 14. Obtain 
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Input: 


Output: 


References: 


References: 


R1 = obtain parameter list (option code, -= to data set name 
or to absolute track address, == volume serial number, —= 
148-byte work area provided by caller). 


Search option -- data portion of named DSCB and address 
(CCHHR) of DSCB. Seek option -- key and data portion 
of DSCB. 


IECPCNVT, IEAOVLOO, IECOSCR1, GETMAIN, 
FREEMAIN, EXCP, WAIT, EXIT , MODSET 


R10— obtain parameter list (option code, —= data 
set name,—» volume serial number, —— 148-byte 
work area provided by caller); R9 —-— 208-byte ob- 
tain work area. 


Data portion of named DSCB. 
GETMAIN, FREEMAIN, EXIT, CATLG 





Entered via 

SVC 78 

("DISPLAY SPACE” 
command or 


1GC0007H SMF request) 


LSPACE -- Initialization and input 
Validation 


Validates input, gets work area, 
builds control blocks. If error 
conditions are encountered, frees 
work area, dequeues VTOC, and 
returns to caller. 





Error 
Condition 


1GC0107H 


LSPACE -- Free Space Totaling, 
Message Processing 


Reads in F4 DSCB. Reads and 
accumulates space from F5 
DSCB(s). If SMF information is 
required, volume label is read and 
type 19 record is built and written 
to the SMF data set. If DISPLAY 
SPACE” is requested, space infor- 
‘mation.is written in the caller’s 
message area. Dequeues VTOC, frees 
work area and returns to caller. 





SVC 3 


Return 


to Caller 





Figure 15. LSPACE 


Input: RO -~ UCB, R1 = SMF cade in high order byte and 
—=message area for ‘DISPLAY SPACE”’’ command in 
low order bytes), R3 CVT, R4 -TCB, R5-— SVRB. 


Output: R13 -~ LSPACE work area (DEB/DCB, !|OB, ECB, channel 
program to read F4 and first F5 DSCB, absolute address of 
F4 DSCB). If the device has the RPS feature, the channel 
program will have been modified to contain a set-sector 
command. If an error is encountered, an error message 
will be moved to the caller’s message area. R15 = completion 
code. 


References: IEAOVLOO, IECPCNVT, IECOSCR1, GETMAIN, FREEMAIN, 
XCTL, EXIT, MODESET, RESERVE 


EEE] 


Input: See output from 1GC0007H 


Output: If SMF information is requested, a type 19 record is written 
to the SMF data set. If "DISPLAY SPACE” command has 
been issued, accurnulated extent, cylinder, and track in- 
formation will be moved to the caller’s message area. 


References: IECOSCR1, EXCP, WAIT, FREEMAIN, DEQ, TIME, 
SMFWTM, EXIT 
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START Entered 
via SVC 98 J 


|GCOOOSH 
Input: R1— protect parameter list (see OS/VS Data Management for 
Protect -- Initialization System Programmers for contents of parameter list), 
R3——CVT, R4-™current TCB. . 
Output: R6 ——O/C/EOV work area (DEB/SCB, (OB, ECB, channel 
program, F1 DSCB for the password data set). R4 -» protect 
Validates parameter list passed, gets parameter list, R10 = entry code for |GGO109H, R11 =com- 
work area, builds DEB/DCB, !OB, pletion code. 


ECB, channel program, reads F 1 
DSCB for password data set from 
the system residence volume. 


References: [EAOVLOO, IECPCNVT, GETMAIN, ENQ, OBTAIN, XCTL 








1GCO109H 


Input: R4— protect parameter list, R10 = code to indicate which 
Protect -- Request Processing routine is to be involved, add, replace, delete, or list. R11 = 
completion code. R5—= work area (DEB/DCB, IOB, ECB, 
channel program, F1 DSCB for password data set). 


Adds a new (control) record or Output: When add, delete, or replace routines are executed, the pass- 
secondary record to the password word data set will be updated. When list routine is executed, 
data set. Replaces an existing pass- the caller’s 80-byte buffer will contain the record he re- 
word, protection mode, or user quested. R5—— work area; R4 -= protect parameter list, 
data fields. Deletes a secondary or R11 = completion code for 1GCO269H. 

control record and any secondary References: IECPCNVT,IECPRLTV, EXCP, WAIT, DEQ, XCTL 

entry for data set name. Lists 80- 
byte data field of a given record. 








1GCO209H 


Input: R5—=—0O/C/EOV work area (F 1 DSCB for password data set, 
Protect -- DSCB Updating BCC ECB, channel program). R4—— protect 
IST. 


Output: F1 DSCB for password data set may be modified; modified 
F1 DSCBs for the protected data set will be written to the 
VTOC of each volume on which the data set resides, if the 
protection status has been changed. 


Updates F1 DSCB for password data 
set when records have been added to 
the end of the data set. Updates F1 
DSCB of protected data set when- 
ever protection status of a control References: LOCATE, OBTAIN, ENQ, DEQ, EXCP, WAIT, WTO, 
password is modified. Builds volume FREEMAIN 

list for the data set using a LOCATE 

macro instruction; processes each 

entry. Releases work area and re- 

turns control. 









Returns to 
Caller 






Figure 16. Protect 


e 
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MODULE DIRECTORY 


This section contains a table that cross-references the DADSM modules with the 
function of each module, the method of operation diagram, and the module flowchart. 


Method of 
Module Operation Module 
Name Module Function Diagram Flowchart 
1GC0002G Obtain 25 14 
IGC0002I Scratch—initialization 18 11, Part 1 of 2 
IGC0003B Allocate—initialization entry 4 7, Part 1 of 4 
point 
1GC00030 Rename—initialization 24 13 
IGC0007H LSPACE—initialization and input 26 15 
validation 
IGC0009H Protect—initialization 27 16 
IGC0102G Obtain—VSAM data set 25 14 
IGC0107H LSPACE—initialization and input 26 15 
validation 
1GC0109H Protect—request processing 27 16 
IGC0209H Protect—DSCB updating 27 16 
IGGOI9SEK RPS channel program appendage module* None None 
IGG020D0 Release—write back F1 DSCB 22 12 
IGG020D1 Release—F5 DSCB (free space) 23 12 
updating 
IGGO020P 1 Release—initialization and F1 22 12 
DSCB updating 
IGG020P2 Release—F3 DSCB updating 22 12 
IGG020P3 Release—F4 (VTOC) DSCB updating 23 12 
and termination 
I1GG0290A Scratch—password protection 19 11, Part 1 of 2 
interface, VTOC search 
IGG0290B Scratch—F6 DSCB updating, 19 11, Part 2 of 2 
split-cylinder data sets 
IGG0290C Scratch—F5 DSCB (free space) 20 11, Part 2 of 2 
updating 
IGG0290D Scratch—F4 (VTOC) DSCB updating 20 11, Part 2 of 2 
IGG0290E Scratch—mount message building 18 11, Part 1 of 2 
1GG0290F Scratch—volume mounting and 18 11, Part 1 of 2 
verification 
IGG0299A Scratch—DSCB removal 19 11, Part 2 of 2 
IGG03001 Rename—F1 DSCB updating 24 13 
I1GG03002 Rename—volume mounting and 24 13 
verification 
1GG03003 Rename—SMF record type-18 24 13 
processing 
1IGG032I11 ISAM allocate—verify checking 8 8, Part 1 of 2 


*For a description of this module, see ‘‘Support for Rotational Position Sensing (RPS).” 


Module Directory 


Module 
Name 


1GG03212 


1GG03213 


1GG03214 


1GG032I5 


1GG03216 


1GG03217 


1GG03218 


1GG0325A 


IGG0325B 


1GG0325C 


1GG0325D 


1GG0325E 


1GG0325F 


1GG0325G 


1GG0325H 


1GG0325J 


IGG0325K 


1GG0325L 


1GG0325M 


IGG0325P 


1GG0325Q 


1GG0325R 
1GG0325S 


IGG0325T 
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Module Function 


ISAM allocate—free space (F5 
DSCB) search 


ISAM allocate—building F1, F2, 
and F3 DSCBs 


ISAM allocate—valid duplicate 
name F1 DSCB to be modified 


ISAM allocate—embedded index 
processing 


ISAM allocate—update F5 (free 
space) DSCBs 


ISAM allocate—F4 DSCB updating 
and error handling 


ISAM allocate—multivolume 
data set initialization 


Allocate—duplicate F1 DSCB 
search 


Non-ISAM allocate—request 
conversion and type determination 


Non-ISAM allocate—absolute 
track processing 


Non-ISAM allocate—search free 
space (normal, cylinder, and 
track requests 


Non-ISAM allocate—building 
Fl and F3 DSCBs, non-split- 
cylinder data sets 


Non-ISAM allocate—F6 DSCB 
creation and updating (split- 
cylinder data sets) 


Non-ISAM allocate—F5 DSCB 
updating 

Non-ISAM allocate—F4 DSCB 
updating and error handling 


Non-ISAM allocate—split-cylinder 
processing, drum device 


Non-ISAM allocate—user-label 
extent allocation 


Non-ISAM allocate—split- 
cylinder processing, non-drum 
DASD 


Non-ISAM allocate—suballocation 


complete F!1 DSCBs, update F4 DSCB 


Non-split-cylinder data set 
processing 


Find split-cylinder data set 
extents 


F5 DSCB processing 


Non-ISAM allocate—suballocation, 
find F!1 DSCB, build extents 


F5 DSCB conversion, F4 DSCB 
updating 


Method of 
Operation 


10 


10 


10 


Module 


Flowchart 


8, Part 1 of 2 


8, Part 1 of 2 


8, Part 1 of 2 


8, Part 2 of 2 


8, Part 2 of 2 


8, Part 2 of 2 


8, Part 2 of 2 


7, Part 1 of 4 


7, Part 1 of 4 


7, Part 2 of 4 


7, Part 2 of 4 


7, Part 2 of 4 


7, Part 3 of 4 


7, Part 4 of 4 


7, Part 4 of 4 


7, Part 3 of 4 


7, Part 2 of 4 


7, Part 3 of 4 


7, Part 4 of 4 


9, Part 1 of 2 


9, Part 2 of 2 


9, Part 1 of 2 
7, Part 4 of 4 


9, Part 1 of 2 








Module 
Name 


1IGG0325U 
IGG0325V 
IGG0325W 


IGG0553A 
IGG0553B 


IGG0553C 
IGG0553D 
IGG0553E 
IGG0553F 


IGG0553G 


Module Function 


Build Fé DSCBs 
Check for F6 extent overlap 


Set up to subtract F6 extents 
from F5; convert F6 DSCB extents 


Extend—initialization 


Extend—free space (FS DSCB) 
search 


Extend—F1/F3 build/update 
Extend—Free space (F5 DSCB) updating 
Extend—VTOC (F4) DSCB updating 


Extend—DOS VTOC conversion 
interface 


Extend—request conversion 


Method of 
Operation 
Diagram 


13 
13 
13 


15 
15 


Module 
Flowchart 


9, Part 2 of 2 
9, Part 2 of 2 
9, Part 2 of 2 


10, Part 1 of 2 
10, Part 1 of 2 


10, Part 2 of 2 
10, Part 2 of 2 
10, Part 2 of 2 
10, Part 1 of 2 


10, Part 1 of 2 
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DATA AREAS 


This section contains descriptions of the work areas and tables used by the DADSM 
routines. The fields of data set control blocks (DSCB) referenced, modified, or deleted 
by DADSM are also included for ease of reference. 


Offsets into the control blocks and work areas are shown in both decimal and 
hexadecimal notation. 


Data Set Control Block (DSCB) Formats 


One or more DSCBs are used to describe the data set. Each DSCB is 140 bytes, 


consisting of a 44-byte key and a 96-byte data portion. The format-0 DSCB is 140 bytes 
of binary zeros. 
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Identifier (Format-1) DSCB 


The identifier data set control block (DSCB) describes the characteristics and up to three ‘ 
extents of a data set. For data sets having indexed sequential organization, additional S) 
characteristics are specified in an index (format-2) DSCB pointed to by the format-1 

DSCB. Additional extents are described in an extension (format-3) DSCB pointed to by 

the format-1 DSCB (or format-2 when the data set has indexed sequential organization). 

A data set can have a maximum of 16 extents on one volume. 


0 (0) 





DS1DSNAM 
Data set name 


44(2C) DS1FMTID 45 (2D) DS1DSSN : 


Format identifier Data set serial number 


51(33)5¢4voLsa 
Volume sequence number 


DS1VOLSQ 53 (35) DS1CREDT 
(Continued) Creation date 


56 (38) DS1E XPDT si (38) SINOEPV 
Expiration date Number of extents 


60(3C) 61(3D) 62(3E) 
DS1NOBDB Reserved 


DS1SYSCD 
Programming System Code ID 





Reserved 


82 (52) DS1DSORG J 


Data set organization 


84 (54) 85 (55) 86 (56) 
DS1RECFM DS1OPTCD DS1BLKL 


Record format Option codes . Block length 


90 (5A 91 (5B) 
88 (58) DS1LRECL ( NeARENE ( DS1RKP 


Logical record length Key length Relative key position 


93 (5D) 94 (5E 
DS1RKP DS1DSIND (5E) DS1SCALO 
(Continued) Data set indicators Secondary allocation 


DS1SCALO 98 (62) DSILSTAR 
(Continued) Pointer to last written block 


DSILSTAR 101 (65) DS1TRBAL 103 Lae 
(Continued) LL part of disk address 


104 (68) 105 (69) 
Reserved 


so Sat 115 (73) 
First extent description 


DS1IEXT2 
Second extent description 
125 (70) 


DS1EXT3 


Third extent description 
135 (87) 


DS1PTRDS 
Direct-access address of next DSCB 139 (8B) 
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Data Set Control Block—Format-1 
Bytes and Field Hex. 
Offset Alignment Name Dig. 
0(0) 44 DS1DSNAM 
44(2C) 1 DS1FMTID 
45(2D) .6 DS1DSSN 
51(33) ae DS1VOLSQ 
53(35) 3 DS1ICREDT 
56(38) 3 DSIEXPDT 
59(3B) ascal DSINOEPV 
60(3C) 1 DS1INOBDB 
61(3D)  .1 
62(3E) ..13 DS1SYSCD 
75 (4B) ...7 
82(52) ee? DS1DSORG 
Byte 1 
mee 
|e 
| ee 
5 
als 
Souk 
83(53) Byte 2 
Pa Pe 
Lie 
lL. 
X  ..XX 


Field Description, Contents, Meaning 


Data set name. If a VSAM data space is established for 
only one data set, this is the true name of the VSAM 
data set. If a data space is established so that it is 
shared among more than one data set, this name is a 
system generated name. 


Format identifier. This field contains X‘F1’. 


Data set serial number. This field is identical to the 
contents of the volume serial number field in the 
volume label of the first or only volume on which the 
data set resides. 


Volume sequence number in binary. Indicates the 
order of this volume relative to the first volume on 
which the data set resides. 


Creation date, in the form ydd. 


y—year: 00-99 
dd—day: 1-366 


Expiration date, in the form ydd (as above). Indicates 
the year and the day of the year the data set may be 
purged. If neither a retention period nor an expiration 
date has been specified, ydd is zero. 


Number of separate extents in which the data set 
resides on this volume. This count does not include the 
extent describing a user's label track. 


Number of bytes used in the last PDS directory block. 
A value of zero indicates that the last available block is 
not being used. 


Reserved. 


System code. An EBCDIC code that uniquely identifies 
the operating system. The first three characters are 
IBM. The remaining characters are the system code 
assigned to the creating system. 


Reserved. 


Data set organization. 


Code 

IS Indexed sequential organization. 
PS Physical sequential organization. 
DA Direct organization. 


CX BTAM or QTAM line group. 

CQ QTAM direct-access message queue. 

MQ QTAM problem program message queue. 

PO Partitioned organization. 

U Unmovable—the data contains 
location-dependent information. 


GS Graphics organization. 
TX TCAM line group. 
TQ TCAM message queue. 
AM VSAM organization. 
TR TCAM 3705. 

Reserved bits. 
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Data Set Control Block—Format-1 


Offset 
84(54) 


85(55) 


86(56) 


88(58) 


90(5A) 


91(5B) 
93(SD) 


94(5E) 
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Bytes and 
Alignment 


1 


Field Hex. 
Name Dig. 


DS1IRECFM 


10.. 
01.. 
11.. 
iil 
cx 


.10. 
.O1. 
.00. 
...0 


DS1OPTCD 


DSIBLKL 


DSILRECL 


DSIKEYL 


DS1RKP 


DS1DSIND 
| Oe 


came On 
eek) Sehee 
Mis. XXX 


DS1SCALO 


Byte 1 
00.. 


O1.. 
10.. 
11.. 
XX 


Field Description, Contents, Meaning 


Record format. 

Code 

Fixed length record format. 

Variable length record format. 

Undefined length record format. 

Track overflow. 

Blocked: may not occur with undefined (U). 
Fixed length record format: Standard blocks, 
no truncated blocks, or unfilled tracks are 
embedded in the data set. Variable length 
record format: Spanned records. 


NwmHyc<e tT 


A ASA control character. 

M Machine control character. 
No control character. 
Always zero. 


Option code—same as DCBOPTCD field 
in DCB. 


Block length for fixed length records or 
maximum blocksize for variable or undefined 
length records. 


Format F records: Record length. 
Format U records: Zero. 
Format V records - 
Unspanned record format: 
Maximum record length. 
Spanned record format - 
Records up to 32,756 bytes: 
Maximum record length. 
Records exceeding 32,756 bytes: 
X‘8000’. 
Key length. The length (1-255 bytes) of the 
key of the data records in the data set. A 


. value of zero indicates that no key exists. 


Relative key position in the data block. 


Data set indicators. 

This is the last volume on which this data set 
normally resides. 

Block length must always be an 8-byte multiple. 
Data set security. 

Password is required to read or write. 
Password is required to write but not to read. 
(Reserved bits) 


Allocation parameters. Type of request issued 
for the initial allocation and to be used for 
subsequent extensions. 

Original request was: 

In tracks relative to a specific location. No 
secondary allocation will be allowed. 

In blocks (physical records). 

In tracks. 

In cylinders. 

(Reserved bits) 

For a continuous extent. 

For the maximum continuous extent on the 
volume. 

For the five (or less) largest extents that are 
greater than or equal to a specified minimum. 
In records, to be rounded up to a cylinder boundary. 





Data Set Control Block—Format-1 


Bytes and Field Hex. 
Offset Alignment Name Dig. Field Description, Contents, Meaning 
95(5F) Byte 2-4 Secondary allocation quantity. Number of blocks, 


tracks, or cylinders to be requested at end of data set 
when processing a sequential or partitioned data set. 


98(62) Sead DSILSTAR The last-block pointer identifies the last block written 
in a sequential or partitioned organization data set. It 
is in the format TTRL (LL is defined under the next 
field name): 


TT — Relative address of track containing 
the last block. 
R — Block number on that track. 
101(65) = .2 DSITRBAL LL portion of the format given in 
DSILSTAR. 
LL— Number of bytes remaining on track 


following the block. 


Note: \f both fields contain binary zeros, the 
last block pointer does not apply. 


103(67) eae Reserved. 


105(69) . 10 DSIEXT1 Extent description for the first extent. This 
extent description is also used in format-3 and 
format-4 DSCBs. 


105(69) Byte | Data set extent type indicator. 


00 Following 9 bytes do not indicate any extent. 

01 The extent contains the data blocks (user's 
blocks), or is a prime area (for indexed 
sequential data sets). 

02 The extent is an overflow area (for indexed 
sequential data sets only). 

04 The extent is an index area (for indexed 
sequential data sets only). 

40 The first extent description describes the user 
label extent. 

80 The extent described is sharing one or more 
cylinders with one or more data sets. 

81 The extent described begins and ends on 
cylinder boundaries, that is, the extent ts 
composed of one or more cylinders. 


106(6A) Byte 2 Extent sequence number (M) 


Uniquely identifies each separate extent on a given 
volume for a data set. For all organizations but indexed 
sequential, the first extent of the data set on each 
volume is identified with zero in this field. The first 
extent on each volume of an indexed sequential data 
set is identified with a value of one in the field. 


Additional extents on the volume are identified with 
sequentially increasing binary values. This field is 
always zero for an extent field pointing to a user label 
track. 


107(6B) Bytes 3-6 Lower limit of this extent (CCHH). Contains the 
cylinder and the track address specifying the starting 
point of this extent. 


111(6F) Bytes 7-10 Upper limit of this extent (CCHH). Contains the 
cylinder and track address specifying the ending point 
of this extent. 


115(73) ... 10 DSIEXT2 Extent description for the second extent. Same format 
as DSIEXT 1 field. 
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Data Set Control Block—Format-1 


Bytes and Field Hex. 
Offset Alignment Name Dig. Field Description, Contents, Meaning ; 
125(7D) .10 DSIEXT3 Extent description for the third extent. Same format as J 
DS1EXT1 field. 
135(87) ase DS1IPTRDS Pointer to a format-2 DSCB, if it is the first volume of 


a data set with indexed sequential organization, or 
pointer to a format-3 DSCB if data set has sequential 
or direct organization (or is the second or greater 
volume of a data set with indexed sequential ‘- 
organization) and has more than 3 extents. This 
pointer has the format CCHHR. Contains binary zeros 
if no additional DSCB is pointed to. 


Index (Format-2) DSCB 


The index data set control block (DSCB) describes characteristics of a data set having 
indexed sequential organization. It is pointed to by an identifier (format-1) DSCB which 
contains additional data set characteristics and up to three extent descriptions. Additional 
extents are described in an extension (format-3) DSCB pointed to by the format-2 
DSCB. Only five fields of the format-2 DSCB are filled in by DADSM: 


1. The key identifier field at offset 0, which is set to X‘02’, identifies the control block as 
a format-2 DSCB. 


2. The DS2FMTID field, at offset 44(2C), which identifies the control block as a 
format-2 DSCB is set to X‘F2’. 


3. The DS2CYLOV field at offset 52(34) contains the number of tracks of cylinder 
overflow area on each cylinder. 


4. The DS2NOTRK field which contains the number of tracks occupied by the highest 
level index. J 


5. The DS2PTRDS field, at offset 135(87), which points to the format-3 DSCB if there 
is one for the data set on the volume. 


Refer to OS/VSI System Data Areas or OS/VS2 System Data Areas for definition 
of this control block. 
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Extension (Format-3) DSCB 


The extension data set control block (DSCB) describes up to’ thirteen additional extents 
that cannot be described in an identifier (format-1) DSCB. It is pointed to by a format-1 
or format-2 DSCB. Descriptions of the fields follow the illustration. 





4 (4) 










44(2C) 
DS3FMTID 
Format identifier 


45 (2D) 


0(0) 
Key identifier 


Four extent descriptions 








DS3EXTNT 


DS3ADEXT 


Nine extent descriptions 


135 (87) 


DS3PT RDS 
Reserved 139 (8B) 





Data Set Control Block—Format-3 


Bytes and Field 
Offset Alignment Name 


0(0) 4 (Key 
identifier) 
4(4) 40 DS3EXTNT 
44(2C) 1 DS3FMTID 
45(2D) . 90 DS2ADEXT 
135(87) ae) DS3PTRDS 


Hex. 
Dig. Field Description, Contents, Meaning 


03 A X‘03’ in each byte. 


Extent (in key)—four 10-byte fields identical to the 
DS1IEXT1 field in the format-1 DSCB. 


F3  +Fosmat identifier—X‘F3’. 


Additional extent—nine 10-byte fields identical to 
the DSIEXT1 field in the format-1 DSCB. 


Reserved—contains binary zeros. 


Data Areas 123 


VTOC (Format-4) DSCB 


The VTOC data set control block (DSCB) describes the volume table of contents 
(VTOC) data set. It is always the first DSCB in the VTOC. 


[ 9 (0) | 


60 (3C) 62 (3E) 
Reserved 


T Reserved 
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44 (2C) 


Format identifier 


52 (34) 


56 (38) 


45 (2D) 
DS4IDFMT 


DS4NOATK 


Padding bytes 


DS4HPCHR 


Highest disk address of format-1 DSCB 


50 (32) 


DS4DSREC 
Number of available format-O DSCBs in VTOC 


DS4HCCHH 
CCHH of next alternate track 


58 (3A) 
DS4VTOCI 


Number of alternate tracks available VTOC indicators 


DEVICE CONSTANTS 


(44) 
72 (48) 


76 (4C) 


84 (54) 


88 (58) 


100 (64) 


DS4DEVSZ (Continued) 


DS4DEVOV (2305) 


DS4DEVTL 
Device tolerance 





59 (3B) 
DS4NOEXT 
VTOC constant 


DS4DEVSZ 


Number of logical cylinders and number of tracks 


66 (42) 


in block 


74 (4A) DS4DEVDT 
Number of DSCBs on 
a track 


DS4AMTIM 
VSAM time stamp 


DS4AMCAT 
VSAM volume owner 


Reserved 


DS4F6PTR 


Direct-access address of first format-6 DSCB 


105 (69) 


DS4VTOCE 
Extent description of the VTOC 


DS4DEVTK 
Device track length 


68 (44) DS4DEVI 69 (45) DS4DEVL 70 (46) 
f ; DS4DEVK 
Constant for keyed block | Constant for last block Constant for no key- 


71 (47) 
DS4DEVFG 
Device indicators 


75 (4B) DS4DEVDB 
Number of directory 


blocks per track 


87 (57) 
Reserved 





115 (73) 


J 








Data Set Control Block—Format-4 
Bytes and 
Alignment 


Offset 
0(0) 44 
44(2C) ! 

45(2D) eS) 


50(32) 
§2(34) 4 
56(38) 2 
58(3A) 


59(3B) 
60(3C) 2 


62(3E) 
62(3E) 


64(40) 
66(42) 


68(44) 2 


Field 
Name 


(Padding) 
DS4IDFMT 
DS4HPCHR 


DS4DSREC 
DS4HCCHH 
DS4NOATK 
DS4VTOCI 
ie 


XXX  ..XX 


DS4NOEXT 


DS4DEVSZ 
Bytes 1-2 


Bytes 3-4 
DS4DEVTK 


DS4DEVOV 


Hex. 
Dig. 


04 
F4 


01 


Field Description, Contents, Meaning 
X‘04 in each byte. 
Format identifier, X°F4’. 


Highest address previously used for a format-! DSCB. 
The address is in the format CCHHR. 


Number of available format-0 DSCBs in the VTOC. 
CCHH of next alternate track available. 

Number of alternate tracks remaining. 

VTOC Indicators. 


Either no format-5 DSCBs exist or they do not reflect 
the true status of the volume. 

Accurate format-5 and format-6 DSCBs now exist and 
bit 0 has been turned off. This volume may contain 
data sets produced by the IBM Disk Operating System ° 
(DOS); IBM Operating System (OS) access methods 
may not be able to process these data sets. 

A DADSM function has been prematurely terminated. 
Possible VTOC errors exist. 

(Reserved bits) 


X‘01 to indicate the VTOC is one extent. 
Reserved. 


Device Constants (DS4DEVxx) The following fields 
describe the device on which this volume was mounted 
when the VTOC was created. 


Device size. 


Number of logical cylinders. A logical cylinder is the 
smallest collection of two or more tracks that can be 
processed by a set file mask CCW (X°‘1F). 


Number of tracks per logical cylinder. 


Device track length. Number of available bytes on a 
track exclusive of home address and record zero. 


Overhead bytes for any keyed block on the 2305. If bit 
4 of the device indicators field (bit 71.4 of DSCB4) is 
set to one, this field (DS4DEVOV) is used as a single 
2-byte field containing a binary count of the number of 
bytes (overhead bytes) occupied by the count field, 
gaps, and check bytes of a keyed record. 


If bit 71.4 is zero, the field (DS4DEVOV) consists of the following subfields: 


68(44) ! 


69(45) 1 


70(46) 


DS4DEVI 


DS4DEVL 


DS4DEVK 


Contains a count of the number of bytes (overhead 
bytes) occupied by the count field, gaps, and check bits 
of a keyed record that is not the last record on a track. 


Contains a count of the number of bytes (overhead 
bytes) occupied by the count field, gaps, and check bits 
of a keyed record that is the last record on a track. 


The number of overhead bytes to be subtracted from 
DS4DEVI, DS4DEVL, or DS4DEVOV if the block has 
no key field. 
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Data Set Control Block—Format-4 
Bytes and Field Hex. 
Offset Alignment Name Dig. Field Description, Contents, Meaning 


71(47) ee | DS4DEVFG Device indicators. ) 
XXXX .XX. (Reserved bits). 
1... The keyed record overhead field (DS4DEVI) is used as 
a 2-byte field to specify the overhead required by a 
keyed record as in the case of the 2305. 
vel A tolerance factor must be applied to all but the last 
record on the track. 


72(48) 2 DS4DEVTL Device tolerance. Value, which when divided by 512, is 
used to determine effective length of a block ona 
track. 


14(4A) | DS4DEVDT Number of full DSCBs that can be contained on one . 
track (44-byte key plus 96-byte data length). 


75(4B) ee | DS4DEVDB Number of full PDS directory blocks that can be 
contained on one track (8-byte key plus 256-byte data 
length). 


76(4C) 8 DS4AMTIM A time stamp, expressed in System/370 timer limits, 
that indicates when a VSAM data space was created or 
dumped using IEHDASDR. 


84(54) 3 DS4AMCAT If the volume has no VSAM data spaces, this field is 
X‘00’. If the volume has at least one VSAM data space, 
this field is X°80’. 

100(64) § § DS4F6PTR Pointer to the first format-6 DSCB. This pointer has 


the form CCHHR. It contains binary zeros when not in 
use. 


105(69) .10 DS4VTOCE VTOC extent. Contents and meaning are the same as 
DS1EXT1 in the format-!1 DSCB. 


Free Space (Format-5) DSCB J 


The free space data set control block (DSCB) describes the amount of available space on 
the volume that can be allocated to a data set. Up to 26 available extents can be recorded 
in one format-5 DSCB. Additional extents are described in other format-5 DSCBs. The 
first format-5 DSCB follows the VTOC (format-4) DSCB. 


DS5KEYID 
Key ID 


DSSAVEXT 
An available extent 


DSSAVEXT 
Seven more available extents 


@ 
44 (2C) oss FMTID 
Format identifier 


DSSMAVET ‘ 
Eighteen more available extents 








DS5SPT RDS 
Direct-access address of next format-5 DSCB 
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Data Set Control Block—Format-5 


Bytes and Field Hex. 
Offset Alignment Name Dig. Field Description, Contents, Meaning 
0(0) 4 DSSKEYID 05 Key identification—X‘0S’ in each byte. 
4(4) 5 DSSAVEXT Available extent. Describes an extent of space 


available for allocation to a data set. 


4(4) Bytes 1-2 Relative track address, in binary, of the first track in 
the extent. The relative track address is relative to the 
first track on the volume, which has a relative track 


address of 0. 

6(6) Bytes 3-4 The number, in binary, of entirely unused cylinders in 
this extent. 

8(8) Byte 5 The number, in binary, of unused tracks in the extent 
in addition to those contained in the unused cylinders. 

9(9) . 35 DSSEXTAV Available extents. Seven 5-byte fields identical in 


format to the DSSAVEXT field. Each set, if it is used, 
describes a different extent. The extents are in the 
ascending order of their first track addresses. 


44(2C) 1 DSSFMTID Format identifier—X‘FS’. 

45(2D) . 90 DSSMAVET Available extents. Eighteen 5-byte fields identical in 
format to the DSSAVEXT field. 

135(87) a. DSSPTRDS The CCHHR address of the next format-5 DSCB if it 


exists. If none exists, this field contains binary zeros. 


Shared Extent (Format-6) DSCB 


This data set control block (DSCB) is used for shared cylinder allocation. It describes the 
extent of space (one or more continuous cylinders) that are being shared by two or more 
data sets. Up to 26 extents can be described in one format-6 DSCB. Additional extents 
are described in other format-6 DSCBs. The format-6 DSCB is pointed to by the 
format-4 DSCB. Descriptions of the fields follow the illustration. 


DS6KEYID 
Key ID 


DS6AVEXT 
Address and size of a shared extent 


9 (9) 





DS6EXTAV 
Address and size of seven more shared extents 


44 (2C) 45 (2D) 


DS6FMTID 
Format identifier 





DS6MAVET 
Address and size of eighteen more shared extents 


135 (87) 


DS6PT RDS 





Direct-access address of next format-6 DSCB 139 (8B) 
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Data Set Control Block—Format-6 


Bytes and Field Hex. 
Offset Alignment Name Dig. Field Description, Contents, Meaning 
0(0) 4 DS6KEYID 06 Key identification—X‘06 in each byte. -) 
4(4) 5 DS6AVEXT Extent of space (one or more continuous cylinders) 
that is being shared by one or more data sets. 
4(4) Bytes 1-2 Relative track address of the first cylinder. 
6(6) Bytes 3-4 Number of full cylinders being shared. 
8(8) Byte 5 Number of data sets sharing the extent. 
9(9) . 35 DS6EXTAV Shared extents. Seven 5-byte fields identical in format 
to DS6AVEXT. The fields are in relative track address 
sequence. is 
44(2C) | DS6FMTID - F6 __ Format identifier—X‘F6’. 
45(2D) . 90 DS6MAVET Shared extents. Eighteen S-byte fields identical in 
format to DS6AVEXT. 
135(87)  ...5 DS6PTRDS CCHHR address of the next format-6 DSCB, if there is 


another. If none exists, this field is set to binary zeros. 
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iS 


DOS VTOC Conversion Work Area 


The DOS VTOC conversion routine establishes and uses this work area to read from and 
write to the VITOC and for internal communications. 


| 0 | 
me DS4IDFMT (96 bytes) 


Data portion of the format-4 DSCB 
96(60) 


DSCBF1 (140 bytes) 


Key and data portions of format-1, format-3 
and format-6 DSCBs are read in 236(EC) 








DSCBF5 (140 bytes) 
Format-5 and format-6 DSCBs are read in and written from this location 


376(178) 


See “Extent table’ for contents 


400(190) 404(194) 
PDLIST (4 bytes) BCE hoy ise! 
Event Control Block 


408(198) 
|OB (40 bytes) . 
I eaitce) CCW1 (120 bytes) { 
Channel program (CCW1-CCW15) 
568 (238) 


Internal communications area (36 bytes) 


DADSMTBL (24 bytes) 










604(25C) 
TTRAREA (32 bytes) 











See ‘‘XCTL table” for contents 





636(27C) 






DEB/DCB (48 bytes) 











684(2AC) 
DEBPTR (4 bytes) 


688(2B0) 694(2B6) 
MIELNAME (6 bytes) unused (2 bytes) 


696(2B8) 







Save area for R4, R5, and R11, when entered from Extend (12 bytes) : 





*Used by Extend only 
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Extend Work Area 


The extend routine gets and uses this work area to read from and write to the VTOC. 
The O/C/EOV work area is also used by the extend routine. ) 


[ 0{0) F5DSCB (140 bytes) |. 


Format-5 DSCB 
140(8C) F3DSCB (140 bytes) 
Format-3 DSCB 


280(118) 285(11D) 286(11E) 
COUNT2 (5 bytes) SMCIF SPARE2 


(FIVESP) (1 byte) (2 bytes) 





Extent Table 


The extent (or DADSM) table is used to pass descriptions of allocated or released space 
extents between modules of the allocate, extend, scratch, and release routines. The 
extent table used in the allocate and extend routines is 24 bytes long and can contain up 
to 5 extent entries. The table used in the scratch and release routines is 68 bytes long to 
accommodate up to 16 extent entries. 


Number Remaining portion contains four 
of RTA1 RTA2 (allocate and extend routines) or 
entries fifteen (scratch and release routines) 
word entries ‘ 
+ - + 





at 


Le—one Extent Entry 


The information contained in the flags field differs for each routine and can be 
determined by examining the program listing. 


The number of entries field contains the count of the number of extent entries in the 
extent table. 


The used-hole field contains the count of the number of format-1, format-2, format-3, 
format-5, and format-6 DSCBs added to and removed from the VTOC during allocation 
or releasing space. 


Each extent entry contains two binary numbers: RTA1 and RTA2. RTAL1 is the relative 
track address of the first track of an extent area; RTA2 is the relative track address of 
the last track of the area, plus one. A relative track address is a binary number 
representing the displacement of the track from the first track of the volume. For 
example, the relative track address of track seven, cylinder zero is seven. The relative 
track address of track 3 on cylinder 2 is 23, if the volume has ten tracks per cylinder. 
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= 


ISAM Allocate Work Area 


This work area is used by the ISAM allocate routine to read from and write to the VTOC 
and for internal communications. 


0 (0) DS4IDFMT (96 bytes) 


Data portion of format-4 DSCB 


96 (60) DSCBF1 (140 bytes) 


Format-1 DSCB read in and written out from this location. Format-5 and format-6 DSCB written 
out from this location. 


236 (EC) 


DSCBF5 (140 bytes) 


Key and data portion of format-1, format-2, and format-3 DSCBs read in and written out from 
this location. 


Key and data portions of format-5 and format-6 DSCB read in at this location. 





376 (178) CCW1 (96 bytes) 


Channel Program, CCW1 - CCW12 
Ea. (1D8) + 


DEB/DCB (48 bytes) 


520 (208) 524(20C) 
DEBPTR (4 bytes) ECB (4 bytes) 
528 (210) 


10B (40 bytes) 
oa (238) DADSMTBL (24 bytes) 1 
See “Extent table’ for contents 
| 598 (250) 
XCTLAREA (16 bytes) 
| 614 (260) PDLIST (24 bytes) | 
Pushdown list 
| 638 (278) { : 
Internal work area (56 bytes) 


694 (2B0) 


Minor resources name 













MIELNAME (6 bytes) 
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LSPACE Work Area 


This work area is used by the LSPACE routine to read from the VTOC and to provide 
internal communications. 


0(0) F4IN (96 bytes) 
(XCTLLIST) (16 bytes) 
Data portion of format-4 DSCB (which overlays the XCTL area) 


96(60) 
DSCBF5 (140 bytes) 


Key and data portion of format-5 DSCBs 
236(EC) 


REGSAVEA (20 bytes) 
(TEMPAREA) 


256(100) 


DEB/DCB (48 bytes) 


304(130) 
DEBPTR (4 bytes) 
308(134) 312(138) 
ECB (4 bytes) 


10OB (40 bytes) 


352(160) 


CCWO (48 bytes) 
Six-command channel program including set-sector command for RPS devices 





400(190) 


CVTAREA (44 bytes) 


Internal communications area 
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L 


Non-ISAM Allocate Work Area 


This work area is used by the non-ISAM allocate routine to read from and write to the 
VTOC and for internal communications. 


0(0) DS4IDFMT (96 bytes) 


| Data portion of format-4 DSCB | 
96(60) F50UT (140 bytes) 


Format-1 DSCB read in to or built and written 
out from this area. Format-5 DSCB built and 
written out from this area. 















236(EC) F5IN (140 bytes) 


Format-5 DSCBs read in to this area. 


Format-2 and format-3 DSCBs built and written out from this area 
t 376(178) (DADSMTBL) (24 bytes) | 


PDLIST (24 bytes at DADSMTBLT+4) 


A five-entry pushdown list, which is overlayed 404(194) 
ECB (4 bytes) 
408(198) 


by the extent table (see ‘‘Extent Table’) 
1OB (40 bytes) 
f 448(1CO) CCW1 (120 bytes) i 
Channel program (CCW1-CCW15) 
568(238) 
Internal communications area (36 bytes) 
f 604(25C) TTRAREA (32 bytes) i 
See “‘XCTL Table’ for contents 
636(27C) 


DEB/DCB (48 bytes) 


684(2AC) 
DEBPTR (4 bytes) 


















688(2B0) 


Minor resource name 


MIELNAME (6 bytes) 


Obtain Work Area 


This work area is used by the obtain routine to read from and write to the VTOC, and 
for internal communications. 


J DEB/DCB (48 bytes) J 


48 (30) 52 (34) 
DEBPTR (4 bytes) ECB (4 bytes) 


56 (38) 
1OB (40 bytes) 


| 96 (60) CCWO (104 bytes) | 


Channel program (CCWO-CCW12) 


| 05 (C8) | 
Internal communications (8 bytes) 
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Password Data Set Record Format 


52-byte “‘key”’ 80-byte ‘data area” 


t ' J 





Fully qualified Logging field 
data set name (optional information) 





77 bytes 
44 bytes 8 bytes Protection mode indicator - 1 byte 


Binary counter - 2 bytes 


When a password-protected data set is opened, the password entered by the operator is 
matched against the 52-byte ‘‘key”’ area. The data set name and password must be 
left-justified in their areas and all unused bytes must be blanks (X‘40’). The password 
may be one to eight alphameric characters. When the password record is generated, the 
counter field is set to zero (X‘0000’) or any initial value the user desires. Each time the 
data set is successfully opened (except when the data set is deleted or renamed), the 
binary counter is incremented by one. 


The protection mode indicator field can be set to any of four values: 


e X‘Q0’ to indicate that the password is a secondary password and the protected data set 
is to be read only. 


¢ X‘80Q’ to indicate that the password is the control password and the protected data set 
is to be read only. 





« X‘OQ1’ to indicate that the password is a secondary password and the protected data set 
is to be read and written. 


e X‘81° to indicate the password is the control password and the protected data set is to 
be read and written. 


Since the DSCB of the protected data set is updated only when the control password is 
changed, it is possible to request protection attributes for secondary passwords that 
conflict with the protection attributes of the control password. The 77-byte logging field 
can contain any type of logging information that the installation chooses (for example, 
the date on which the counter was reset or the previous password used). 
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Protect Work Area 


This work area is used by the protect routine to read from and write to the VTOC, using 
the OBTAIN macro instruction. 


Loto) l. 


OBTWRK (96 bytes) 


96(60) 
OBTCCH (5 bytes) 


Obtain work space (249 bytes) 












101(65) 






350(15E) 
LOCAREA (265 bytes) 


Locate work space (volume list) i 


Release Work Area 


This work area is used by the release routine for reading from and writing to the VTOC 
and for internal communications. 


O(0) 
INDSCB (140 bytes) 
Format-5 DSCB read in this area 


140(8C) 








VTOCDSCB (96 bytes) 
Format-4 DSCB read in this area 
; 236(EC) 


Internal communications area (52 bytes) 


288(120) 
DADSMTBL (68 bytes) 


See ’’Extent Table’’ for contents 
356( 164) 


Additional internal communication area (64 bytes) 


420(1A4) 


OUTDSCB (140 bytes) 
Format-3 DSCB read in to and written out from this area. Format-5 DSCB written out from this area. 
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Rename Work Area 


This work area is used by the rename routine for reading from and writing to the VTOC 
and for internal communications. 


0(0) 
VTOCDSCB (140 bytes) 
Data portion of format-4 DSCB read into this area. 


Format-1 DSCB read into and written out from 140(8C) 


this area. 





Internal communications area (8 bytes) 


148(94) 


DEB/DCB (48 bytes) 


196(C4) 
DEBPTR (4 bytes) 
200(C8) 204(CC) 
ECB (4 bytes) 


1OB (40 bytes) 


244(F4) 
unused (4 bytes) 


248(F8) CCW1-CCW12 (96 bytes) 


Channel program 
344(158) 


Additional internal communications area (56 bytes) 





400(190) 


PSWDWKAR (96 bytes) 
Work area obtained for reading OSCBs by READPSWD (an open security module) when 
password-protected data set is being renamed. 
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Scratch Work Area 


This work area is used by the scratch routine for reading from and writing to the VTOC. 
It contains the control blocks and channel program used by the I/O supervisor for 
reading from and writing to direct-access devices. It also contains areas used for internal 
communications by the scratch routine. 


INDSCB (140 bytes) 
(DSIDSNAM) 
(DS3EXTNT) 


Key and data portion of format-1, format-2, 
format-3, format-5, and format-6 DSCBs are 140 (8C) 
read in at this location 


DS4IDFMT (96 bytes) 
Data portion of format-4 DSCB 


236 (EC) 


OUTDSCB (140 bytes) 
(PASSWKAR) (96 bytes) 





Format-5 and format-6 output area; first 96 bytes used also for password work area 


376(178) 
DEB/DCB (48 bytes) 


424(1A8) 428 (1 
DEBPTR (4 bytes) BAG! ECB (4 bytes) 


432(1B0) 


1OB (40 bytes) 
| 472(1D8) . CCW1 (96 bytes) 


Channel program, CCW1-12 . 


568 (238) 
Internal communications area (16 bytes) 


584 (248) DADSMTBL (68 bytes) 


See “Extent Table’’ for contents 
652(28C) 


a Internal communications area (36 bytes) : 6 
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XCTL (Transfer Control) Table 


The XCTL table is used to transfer control: (1) between modules of the non-ISAM J 
allocate routine and (2) between modules of the scratch routine. There is an XCTL table 

starting on a doubleword boundary in each load of the scratch and non-ISAM allocate 

routines. The table consists of the other load IDs to which control can be transferred. 

Each entry consists of the load ID, its relative disk address (TTR) and the length of the 

load. For OS/VS1, the TTRs are inserted by the IEHIOSUP utility program when the 

system is generated. For OS/VS2, the DADSM routines are resident in virtual storage in . 
the pageable link pack area (LPA); therefore, the 7T7R and Length fields are not used. 
The last four bytes of a load consist of a supervisor-call (SVC) pointing to the beginning 
of the XCTL table. The pointer is expressed in doublewords from the beginning of the 


load. 
Load ID, Relative disk address Length of load expressed in doublewords 
(2 bytes) (TTR) (3 bytes) (1 byte) 


00 
(end of table) 














(Program continues) 


Pointer to the first 1D, relative to 0 and 
SVC code expressed in doublewords 
fibers last 4 bytes of load —_—_—_— 
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DIAGNOSTIC AIDS 


DADSM Interrupt Recording Facility (DIRF) 


If a system fails during a function in which the VTOC is being updated (allocate, extend, 
scratch, or release processing), or a permanent I/O error occurs when a DSCB is being 
read from or written to the VTOC, the VTOC may be in error. To ensure that the errors 
caused by the interruption of DADSM processing are detected, an indicator is set in the 
VTOC when entering space allocation and releasing space functions. The indicator is 
reset at exit, if no permanent I/O error has occurred. The logic of DIRF processing in 
the allocate routine is presented in Figure 17. The logic used by scratch, release, and 
rename is quite similar. 


When VTOC problems are encountered, the VTOC of the volume should be printed out 
so that the DIRF bit can be examined. The IEHLIST utility (see ‘‘Listing a Volume 
Table of Contents” in OS/VS Utilities ,GC35-0005) can be used to print the VTOC; 
an example of job control language (JCL) follows: 


// EXEC PGM=IEHLIST 
//DD1 DD UNIT=2314,VOL=( PRIVATE,RETAIN, SER=111111), 
DISP=OLD 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD * 
LISTVTOC DUMP , VOL=2314=111111 
/* 


Note: The PRIVATE subparameter is required on the //DD1 DD statement to ensure that the VTOC 
being processed is not updated during the listing process. 


If bit 5 of the DS4VTOCI field at offset 58(X’3A’) in the format-4 DSCB is on (set to 
1), a system failure or a permanent I/O error has occurred. 


It is sometimes possible to correct a VTOC that is in error by setting the DOS bit (bit 0 
of the DS4VTOCI field) to one and resetting the DIRF bit (bit 5 of the DS4VTOCI 
field) to zero, then, as soon as possible, executing a JCL statement to request an 
allocation. The result of the allocation request is the invocation of the DOS VTOC 
conversion routine, which calculates available space and rebuilds the free space 
(format-5) and shared extent (format-6) DSCBs and corrects some of the fields of the 
VTOC (format-4) DSCB. 


An example of the JCL follows: 


// EXEC PGM=IMASPZAP 
//SYSLIB DD DSN=FORMAT4 . DSCB, VOL=SER=111111, 
DISP=OLD 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD * 
CCHHR 0000000101 absolute track address of 
the format 4 DSCB 
VERIFY 3A 04 
REP 3A 80 


/* 
The following job control language (JCL) statements will invoke the DOS VTOC 
conversion routine, which will correct the VTOC: 


// EXEC PGM=IEFBR14 

//DD1 DD UNIT=2314,VOL=SER=111111, 
SPACE=(TRK,(0) ) 

/* 
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Begin DIRF 
processing 


Read F4 


DSCB into 
virtual storage 

















Set/reset 
DIFR bit 






Previous 
interrupt 
during 
VTOC 
updating 


Allocate processing 


Update the 
VTOC 





Write F4 
DSCB back 
to VTOC 


End of 
DIRF processing 












Does 
DIRF bit = 0 





Was 
there a 
permanent 
1/O error 











Set/reset 
DIRF bit 






Figure 17. DIRF Processing Logic 


Using Other Utilities to Diagnose VTOC Problems 
It is sometimes useful to use the IEHLIST utility before and after the execution of the 
JCL that is causing a VTOC problem. This will provide two copies of the VTOC for 





comparison. 
IEHLIST will sometimes fail to print all records of a VTOC that is in error. The 
IEHDASDR utility can be executed to print all the VTOC records. 
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Allocate Return Codes and Messages 


Return 
Code 


xX'04 
X‘08’ 


x'0C’ 


x'10° 
X14 


xX'18 
xX'1C 
X‘20’ 
x‘24 
X'28' 
x2: 


x‘30’ 
X'34 
X‘38’ 


Xx'40’ 
x‘ 44 
X'48 
x'4C’ 
X‘50’ 
xX'54 
X*58’ 


xX‘5C’ 
x‘60’ 
X'64 
X*68’ 


X'6C’ 
x‘70' 
X'74 
X‘78 
X‘7C 
X‘80' 
X‘84 
X‘88’ 
X'8C’ 
x*90' 


Message 


Identification 


IEF2531 
IEF254] 


IEF2551 


IEF256I 
I[EF257] 


IEF258] 
IEF2601 
IEF2611 
[EF262] 
IEF2631 
IEF264I 


IEF265I 
IEF266I 
IEF140I 


IEF2731 
IEF146E 
IEF454] 
IEF127] 
IEF1281 
IEF1291 
IEF130I 


IEFI311 
JEF132I 
IEF1331 
IEF1341 


IEF135] 
IEF 136I 
IEF 137] 
IEF138I 
IEF1391 
JEF267] 
IEF145] 
IEF 1441 
IEF 1411 
IEF 143] 


Text 


Direct Access—Duplicate Name on Volume 
Direct Access—No Space in VTOC 


Direct Access—-Permanent I/O Error 


Direct Access—Absolute Track Not Available 
Direct Aczess—Space Requested Not Available 


Direct Access—Invalid Record Length 

Wrong DSORG or DISP 

No Prime Area Request for ISAM Data Set 

Prime Area Must be Requested Before OVFLOW 

Space Request Must Begin on Cylinder Boundary 
Duplication of DSNAME Elements Not Allowed—Same Area 
Requested Twice 

Number of Tracks Requested is Too Large for Split Request 
Invalid JFCB or Partial DSCB Pointer 

Directory Space Requested is Larger Than Amount Available 
on This Volume 

Invalid User-Label Request 

Duplicate Data Set Names Within a Split-Cylinder Request 
DOS VTOC Cannot be Converted to OS VTOC 

No Space Parameter Given for New Data Set 

Invalid Request for ISAM Index 

Multivolume Index Not Allowed 

DSNAME Element Wrong—Must be PRIME, INDEX, 

or OVFLOW 

Multivolume OVFLOW Request Not Allowed 

SPACE Parameter Wrong—CYL and ABSTR Conflict 
SPACE Parameter Wrong—CYL and CONTIG Conflict 
Subparameter Wrong in Space Parameter—Must be CYL or 
ABSTR 

Primary Space Request May Not be Zero 

Duplication in Allocation—Index Area Requested Twice 
SUBALLOC Data Set Not Found 

SUBALLOC Data Set Has More Than 1 Extent—Not Allowed 
SUBALLOC Data Set is Password Protected 

Directory Space Request is Larger Than Primary Request 
Space Request Must be ABSTR for DOS Volume 

Cannot Suballocate From a Split Cylinder Data Set 

Index Request Must Precede Prime for ISAM Data Set 

Last Concatenated DD Card Unnecessary or Invalid for this 
Data Set 


Issued by 


IGG0325A, IGG03211, IGG03218 


1GG0325B, IGG0325C, IGG0325D, 
IGG0325S, 1GG03212 
IGG0325A, IGG0325C, IGG0325D, 


IGG0325E, IGG0325F, 1GG0325G, 
1GG0325H, 1GG0325J, IGG0325L, 


IGG0325M, IGG0325P, IGG0325Q, 


IGG0325R, IGG0325S, IGG0325T; 


1GG0325U, IGG0325V, IGG0325W, 


1GG0325Z, IGG03212, IGG03213, 


IGG03214, IGG03215, 1GG03216, 
1GG03217, IGG03218 
1GG0325C, IGG03212 
IGG0325C, IGG0325D, IGG0325K, 
1GG0325S, IGG03212, IGG03217 


IGG0325A 


IGG032I1, 1GG03213 


IGG03211 
1GG03211 
IGG03212 
1GG03211 


IGG0325B 
1IGG0325A 


1GG0325B, IGG0325E 


IGG0325A 
IGG0325A 
1GG0325P, IGG0325R, IGG0325V 


IGG0325C, IGG03211 


IGG032I1 
IGG03211 
1GG032I1 


1IGG032I11 
IGG032I1 
IGG032I1 
IGG03211 


1GG03212, IGG0325C 


1GG032I1 
IGG0325S 
1GG0325S 
IGG0325S 
1GG0325B 
IGG032I1 
IGG0325S 
1GG03211 
IGG032I1 
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converting extents from one format to 
another 18 
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drum storage allocation 23,50 
DSCB 
format-0 15 
format-1 
(see identifier DSCB) 118-122 
format-2 
(see index DSCB) 122 
format-3 
(see extension DSCB) 122-123 
format-4 
(see VTOC DSCB) 124-126 
format-5 
(see free space DSCB) 126-127 
format-6 
(see shared extent DSCB) 127-128 
DSCB deletion and split-cylinder processing in 
scratch routine 33 
DS4DSREC field of VTOC DSCB (hole count) 
limiting number of data sets on volume 17 
updating at completion of allocation 24 
DS4HPCHR field of VTOC DSCB (high-water mark) 
updating at completion of allocation 24 
use by DOS VTOC conversion routine 29 
duplicate-name DSCB, search for 
in allocate initialization routine 21,46 
in extend routine 68 
in rename routine 86 


E 


embedded index requests, ISAM data sets 27 
end-of-volume (EOV) 

interaction with extend 68 

requests for data set extensions 30 
ENQ macro instruction 17 
extend routine 30 
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return codes 89 
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processing 36,86 
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processing 33,76 
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reformatting DOS VTOCs 
(see DOS VTOC conversion routine) 
release routine 34 
method of operation diagrams 81-85 
module identifications 113 
overview 81 
return codes 85 
sequential flow diagrams 108 
use by checkpoint/restart 34,86 
use by close routine 34,81 
work area layout 135 
release-must-complete 
(see DEQ) 
rename routine (SVC 30) 36 
method of operation diagram 86 
module identifications 113 
parameter list 86 
return codes 86 
sequential flow diagram 109 
status code 36,87 
work area layout 136 
RENAME macro instruction 36 
renaming 
password-protected data sets 36,86 
unique VSAM data sets 36 
reposition I/O module, use of release 
routine 34,81 
replace routine 
(see protect routine) 
RESERVE macro instruction, use in enqueing 
VTOC 17,33 
return codes 
from allocate routine 141 
from extend routine 71 
from LSPACE routine 91 
from obtain routine 89 
from protect routine 93 
from READPSWD 
to rename 36 
to scratch 76 
from release 85 
from rename routine 86 
from scratch 79 
rotational positioning sensing 20 
(see also RPS) 


routines 
allocate 21 
extend 30 


146 OS/VS DADSM Logic 


LSPACE 38 

obtain 37 

protect 39 

release 34 

rename 36 

scratch 32 

(see also directory) 

RPS (rotational position sensing) 20 

in allocate routine 46 

in extend routine 68 

in LSPACE routine 38,91 

in obtain routine 88 

in release routine 82 

in rename routine 87 

in scratch 74 

module identification 113 
RTA1/RTA2 

(see extent formats) 


S 


scheduler interaction 
with allocate 46 
with scratch 32,73 
scratch routine (SVC 29) 32 
method of operation diagrams 73-79 
module identifications 113 
overview 73 
return codes 79 
sequential flow diagrams 106-107 
status code 79 
work area layout 137 
SCRATCH macro instruction 32 
scratching password-protected data 
sets 33,76 
scratching split-cylinder data sets 33,76 
search option 
(see obtain routine) 
secondary allocation 
(see extend routine) 
security - 
(see password) 
seek option 
(see obtain routine) 
service functions, VTOC 36-40 
set-must-complete option 
(see ENQ) 
set-sector command, use with direct-access 
devices with RPS feature 20 
shared cylinders 
(see split-cylinders) 
shared extent (format-6) DSCB 
creating 
by DOS VTOC conversion routine 29,64 
for non-ISAM data sets 23 
data area layout 127-128 
deleting 
by DOS VTOC conversion routine 29,62 
by scratch routine 33 
description 15 
updating 
by scratch routine 76 
size VTOC 17 
SMF 18 








SMF 18 (continued) 
in LSPACE 38,90 
in release 35,82 
inrename 36,86 
in scratch 33,78 
support in DADSM routines 18 
type-14 record 35 
type-15 record 35 
type-17 record 34,78 
type-18 record 36,37,86 
type-19 record 38,90 
space requirements, VTOC 17 
split-cylinder data set 
allocating 22 
number of data sets sharing extent 22 
scratching 33 
split-cylinder processing, by DOS VTOC 
conversion routine 29 
standard user labels, allocation of 
track(s) 22,48 
standard volume label 14 
suballocation option 22,48 
SUL 
(see standard user labels) 
support for rotational position sensing 20 
SVC 27 
(see obtain routine) 
SVC 29 
(see scratch routine) 
SVC 30 
(see rename routine) 
SVC 32 
(see allocate routine) 
SVC 78 
(see LSPACE routine) 
SVC 98 
(see protect routine) 
System Management Facilities 
(see SMF) 


T 


table 

extent 130 

transfer control (XCTL) 138 
transfer control (XCTL) table 138 
TSO, use of obtain routine 37 


U 


user count 23 
user labels 

(see standard user labets) 
utility interaction 

with allocate 46 

with scratch 32,73 


V 


valid duplicate-name DSCB 24 
contents of 14 
data set, contents of 16 
enqueuing 17 
integrity 17 
locating 14 
protecting 17 
service functions 36-40 
size 17 
VOLVTOC field of the standard volume label 14 
VSAM 
interaction with allocate 46 
interaction with extend 68 
interaction with scratch 32,74 
LOCATE command 37,88 
renaming unique data set 36 
VTOC 
(see volume table of contents) 
VTOC (format-4) DSCB 
data area layout 124-126 
description 15 
DIRF bit of DS4VTOCI field 
(see DIRF) 
high-water mark 
(see DS4HPCHR field) 
hole count : 
(see DS4HPCHR and DS4DSREC field) 
how located 14 
protection 17-18 
service functions 36-40 
updating 
by allocate routine 24 
by extend routine 30,32,70 
by DOS VTOC conversion routine 29,62 
for ISAM data sets 27,58 
for norm-ISAM data sets 23,50 
by release routine 35,84 
by scratch routine 34,78 
by VSAM catalog management 24 


WwW 


work areas 
(see data areas) 


X 


XCTL (transfer control) table, layout of 138 


L 


zero-quantity request 22 


Index 147 


SY 26-3787-1 


NSM 


International Business Machines Corporation 
Data Processing Division 


1133 Westchester Avenue, White Plains, New York 10604 
(U.S.A. only) 


IBM World Trade Corporation 
821 United Nations Plaza, New York, New York 10017 
(International) 


I-L8LE-9ZAS VSN Ul pe Ug SIS0°'] WSAVd SA/SO 


UL 





Seem ee es ae ae Se ewe oe i eee i i eo ei see ee ieee eee ee eee ee ee ee ee ee ee i es ee ee ce es ee es ee ce es es ees ee es ee ce ie es ee ee ee ee ee ie ae ee ee 


READER’S COMMENT FORM 
OS/VS DADSM Logic SY 26-3787-1 


Your comments about this publication will help us to produce better publications for your use. If 
you wish to comment, please use the space provided below, giving specific page and paragraph 
references. 


Please do not use this form to ask technical questions about the system or equipment or to make 
requests for copies of publications. Instead, make such inquiries or requests to your IBM represen- 
tative or to the IBM Branch Office serving your locality. 





Reply requested Name 
Yes [ ] Job Title 
No [] Address 


Zip 


No postage necessary if mailed in the USA 





S Y26-3787-1 


YOUR COMMENTS, PLEASE... 


This publication is one of a series which serves as a reference source for systems analysts, 
programmers, and operators of IBM systems. Your answers to the questions on the back of 
this form, together with your comments, will help us produce better publications for your 
use. Each reply will be carefully reviewed by the persons responsible for writing and 
publishing this material. All comments and suggestions become the property of IBM. 


Please note: Requests for copies of publications and for assistance in utilizing your IBM 
system should be directed to your IBM representative or to the IBM sales office serving 
your locality. 


BUSINESS REPLY MAIL 
NO POSTAGE STAMP NECESSARY IF MAILED IN U.S. A. 





POSTAGE WILL BE PAID BY... . 


IBM Corporation 

Programming Center—Publishing 
Department D58 

Monterey and Cottle Roads 

San Jose, California 95114 


SIME 


a. 


International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, New York 10604 
(U.S.A. only) 


IBM World Trade Corporation 
821 United Nations Plaza, New York, New York 10017 
(International) 


FIRST CLASS 
PERMIT NO. 2078 
SAN JOSE, CALIF. 


ag ee ey creme ces omnis eh ee ce ces ge ee ee ee ee ee ee a ee ee ee 


—— — —— — = 
eg ee ag ee ere ee ee eee ee ee eee ee —_o— —_—oo a ee cee ee eee 


em ee ee ee ee ee ee i ee i ee ee ee ee ee eee eS ees ee ee —— ee oe 


C 


I-L8LE-9ZAS VSN UI pajulsd 307 WSAVd SA/SO 
2 


we 





c 


